home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 April: Mac OS SDK / Dev.CD Apr 96 SDK / Dev.CD Apr 96 SDK2.toast / Development Kits (Disc 2) / QuickTime / Programming Stuff / QuickTime 2.1 for Developers / Interfaces / PInterfaces / Movies.p < prev    next >
Encoding:
Text File  |  1995-08-07  |  92.5 KB  |  2,733 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        Movies.p
  3.  
  4.      Contains:    QuickTime interfaces
  5.  
  6.      Version:    
  7.  
  8.      DRI:        Jim Batson
  9.  
  10.      Copyright:    © 1984-1994 by Apple Computer, Inc.
  11.                  All rights reserved.
  12.  
  13.      Warning:    *** APPLE INTERNAL USE ONLY ***
  14.                  This file may contain unreleased API's
  15.  
  16.      BuildInfo:    Built by:            QuickTime
  17.                  With Interfacer:    1.1d11  
  18.                  From:                Movies.i
  19.                      Revision:        0
  20.                      Dated:            08/07/95
  21.                      Last change by:    JB
  22.                      Last comment:    This is a fake header used so interfacer is happy.
  23.  
  24.      Bugs:        Report bugs to Radar component “System Interfaces”, “Latest”
  25.                  List the version information (from above) in the Problem Description.
  26.  
  27. }
  28.  
  29. {$IFC UNDEFINED UsingIncludes}
  30. {$SETC UsingIncludes := 0}
  31. {$ENDC}
  32.  
  33. {$IFC NOT UsingIncludes}
  34.  UNIT Movies;
  35.  INTERFACE
  36. {$ENDC}
  37.  
  38. {$IFC UNDEFINED __MOVIES__}
  39. {$SETC __MOVIES__ := 1}
  40.  
  41. {$I+}
  42. {$SETC MoviesIncludes := UsingIncludes}
  43. {$SETC UsingIncludes := 1}
  44.  
  45.  
  46. {$IFC UNDEFINED __QUICKDRAW__}
  47. {$I Quickdraw.p}
  48. {$ENDC}
  49. {    Types.p                                                        }
  50. {        ConditionalMacros.p                                        }
  51. {    MixedMode.p                                                    }
  52. {    QuickdrawText.p                                                }
  53.  
  54. {$IFC UNDEFINED __ALIASES__}
  55. {$I Aliases.p}
  56. {$ENDC}
  57. {    AppleTalk.p                                                    }
  58. {        OSUtils.p                                                }
  59. {            Memory.p                                            }
  60. {    Files.p                                                        }
  61.  
  62. {$IFC UNDEFINED __EVENTS__}
  63. {$I Events.p}
  64. {$ENDC}
  65.  
  66. {$IFC UNDEFINED __MENUS__}
  67. {$I Menus.p}
  68. {$ENDC}
  69.  
  70. {$IFC UNDEFINED __COMPONENTS__}
  71. {$I Components.p}
  72. {$ENDC}
  73.  
  74. {$IFC UNDEFINED __IMAGECOMPRESSION__}
  75. {$I ImageCompression.p}
  76. {$ENDC}
  77. {    QDOffscreen.p                                                }
  78. {        Errors.p                                                }
  79. {    Windows.p                                                    }
  80. {        Controls.p                                                }
  81. {    StandardFile.p                                                }
  82. {        Dialogs.p                                                }
  83. {            TextEdit.p                                            }
  84.  
  85. {$PUSH}
  86. {$ALIGN MAC68K}
  87. {$LibExport+}
  88.  
  89. CONST
  90.     MovieFileType                = 'MooV';
  91.  
  92.     MediaHandlerType            = 'mhlr';
  93.     DataHandlerType                = 'dhlr';
  94.  
  95.     VideoMediaType                = 'vide';
  96.     SoundMediaType                = 'soun';
  97.     TextMediaType                = 'text';
  98.     BaseMediaType                = 'gnrc';
  99.     MPEGMediaType                = 'MPEG';
  100.     MusicMediaType                = 'musi';
  101.     TimeCodeMediaType            = 'tmcd';
  102.     SpriteMediaType                = 'sprt';
  103.     HandleDataHandlerSubType    = 'hndl';
  104.  
  105.     VisualMediaCharacteristic    = 'eyes';
  106.     AudioMediaCharacteristic    = 'ears';
  107.  
  108.     DoTheRightThing                = 0;
  109.  
  110.  
  111. TYPE
  112.     MovieRecord = RECORD
  113.         data:                    ARRAY [0..0] OF LONGINT;
  114.     END;
  115.  
  116.     Movie = ^MovieRecord;
  117.  
  118.     TrackRecord = RECORD
  119.         data:                    ARRAY [0..0] OF LONGINT;
  120.     END;
  121.  
  122.     Track = ^TrackRecord;
  123.  
  124.     MediaRecord = RECORD
  125.         data:                    ARRAY [0..0] OF LONGINT;
  126.     END;
  127.  
  128.     Media = ^MediaRecord;
  129.  
  130.     UserDataRecord = RECORD
  131.         data:                    ARRAY [0..0] OF LONGINT;
  132.     END;
  133.  
  134.     UserData = ^UserDataRecord;
  135.  
  136.     TrackEditStateRecord = RECORD
  137.         data:                    ARRAY [0..0] OF LONGINT;
  138.     END;
  139.  
  140.     TrackEditState = ^TrackEditStateRecord;
  141.  
  142.     MovieEditStateRecord = RECORD
  143.         data:                    ARRAY [0..0] OF LONGINT;
  144.     END;
  145.  
  146.     MovieEditState = ^MovieEditStateRecord;
  147.  
  148.     SampleDescription = RECORD
  149.         descSize:                LONGINT;
  150.         dataFormat:                LONGINT;
  151.         resvd1:                    LONGINT;
  152.         resvd2:                    INTEGER;
  153.         dataRefIndex:            INTEGER;
  154.     END;
  155.  
  156.     SampleDescriptionPtr = ^SampleDescription;
  157.     SampleDescriptionHandle = ^SampleDescriptionPtr;
  158.  
  159.     SpriteWorldRecord = RECORD
  160.         data:                    ARRAY [0..0] OF LONGINT;
  161.     END;
  162.  
  163.     SpriteWorld = ^SpriteWorldRecord;
  164.  
  165.     SpriteRecord = RECORD
  166.         data:                    ARRAY [0..0] OF LONGINT;
  167.     END;
  168.  
  169.     Sprite = ^SpriteRecord;
  170.  
  171.     QTAtomContainer = Handle;
  172.  
  173.     QTAtom = LONGINT;
  174.  
  175.     QTAtomType = LONGINT;
  176.  
  177.     QTAtomID = LONGINT;
  178.  
  179.     SoundDescription = RECORD
  180.         descSize:                LONGINT;                                { total size of SoundDescription including extra data }
  181.         dataFormat:                LONGINT;                                {  }
  182.         resvd1:                    LONGINT;                                { reserved for apple use }
  183.         resvd2:                    INTEGER;
  184.         dataRefIndex:            INTEGER;
  185.         version:                INTEGER;                                { which version is this data }
  186.         revlevel:                INTEGER;                                { what version of that codec did this }
  187.         vendor:                    LONGINT;                                { whose  codec compressed this data }
  188.         numChannels:            INTEGER;                                { number of channels of sound }
  189.         sampleSize:                INTEGER;                                { number of bits per sample }
  190.         compressionID:            INTEGER;                                { sound compression used, 0 if none }
  191.         packetSize:                INTEGER;                                { packet size for compression, 0 if no compression }
  192.         sampleRate:                Fixed;                                    { sample rate sound is captured at }
  193.     END;
  194.  
  195.     SoundDescriptionPtr = ^SoundDescription;
  196.     SoundDescriptionHandle = ^SoundDescriptionPtr;
  197.  
  198.     TextDescription = RECORD
  199.         descSize:                LONGINT;                                { Total size of TextDescription}
  200.         dataFormat:                LONGINT;                                { 'text'}
  201.         resvd1:                    LONGINT;
  202.         resvd2:                    INTEGER;
  203.         dataRefIndex:            INTEGER;
  204.         displayFlags:            LONGINT;                                { see enum below for flag values}
  205.         textJustification:        LONGINT;                                { Can be: teCenter,teFlush -Default,-Right,-Left}
  206.         bgColor:                RGBColor;                                { Background color}
  207.         defaultTextBox:            Rect;                                    { Location to place the text within the track bounds}
  208.         defaultStyle:            ScrpSTElement;                            { Default style (struct defined in TextEdit.h)}
  209.         defaultFontName:        PACKED ARRAY [0..0] OF CHAR;            { Font Name (pascal string - struct extended to fit) }
  210.     END;
  211.  
  212.     TextDescriptionPtr = ^TextDescription;
  213.     TextDescriptionHandle = ^TextDescriptionPtr;
  214.  
  215.     DataReferenceRecord = RECORD
  216.         dataRefType:            OSType;
  217.         dataRef:                Handle;
  218.     END;
  219.  
  220.     DataReferencePtr = ^DataReferenceRecord;
  221.  
  222. {--------------------------
  223.   Music Sample Description
  224. --------------------------}
  225.     MusicDescription = RECORD
  226.         descSize:                LONGINT;
  227.         dataFormat:                LONGINT;                                { 'musi' }
  228.         resvd1:                    LONGINT;
  229.         resvd2:                    INTEGER;
  230.         dataRefIndex:            INTEGER;
  231.         musicFlags:                LONGINT;
  232.         headerData:                ARRAY [0..0] OF LONGINT;                { variable size! }
  233.     END;
  234.  
  235.     MusicDescriptionPtr = ^MusicDescription;
  236.  
  237.     MusicDescriptionHandle = ^MusicDescriptionPtr;
  238.  
  239.  
  240. CONST
  241.     dfDontDisplay                = 1 * (2**(0));                    { Don't display the text}
  242.     dfDontAutoScale                = 1 * (2**(1));                    { Don't scale text as track bounds grows or shrinks}
  243.     dfClipToTextBox                = 1 * (2**(2));                    { Clip update to the textbox}
  244.     dfUseMovieBGColor            = 1 * (2**(3));                    { Set text background to movie's background color}
  245.     dfShrinkTextBoxToFit        = 1 * (2**(4));                    { Compute minimum box to fit the sample}
  246.     dfScrollIn                    = 1 * (2**(5));                    { Scroll text in until last of text is in view }
  247.     dfScrollOut                    = 1 * (2**(6));                    { Scroll text out until last of text is gone (if both set, scroll in then out)}
  248.     dfHorizScroll                = 1 * (2**(7));                    { Scroll text horizontally (otherwise it's vertical)}
  249.     dfReverseScroll                = 1 * (2**(8));                    { vert: scroll down rather than up; horiz: scroll backwards (justfication dependent)}
  250.     dfContinuousScroll            = 1 * (2**(9));                    { new samples cause previous samples to scroll out }
  251.     dfFlowHoriz                    = 1 * (2**(10));                { horiz scroll text flows in textbox rather than extend to right }
  252.     dfDropShadow                = 1 * (2**(12));                { display text with a drop shadow }
  253.     dfAntiAlias                    = 1 * (2**(13));                { attempt to display text anti aliased}
  254.     dfKeyedText                    = 1 * (2**(14));                { key the text over background}
  255.     dfInverseHilite                = 1 * (2**(15));                { Use inverse hiliting rather than using hilite color}
  256.  
  257.     searchTextDontGoToFoundTime    = 1 * (2**(16));
  258.     searchTextDontHiliteFoundText = 1 * (2**(17));
  259.     searchTextOneTrackOnly        = 1 * (2**(18));
  260.     searchTextEnabledTracksOnly    = 1 * (2**(19));
  261.  
  262. { progress messages }
  263.     movieProgressOpen            = 0;
  264.     movieProgressUpdatePercent    = 1;
  265.     movieProgressClose            = 2;
  266.  
  267. { progress operations }
  268.     progressOpFlatten            = 1;
  269.     progressOpInsertTrackSegment = 2;
  270.     progressOpInsertMovieSegment = 3;
  271.     progressOpPaste                = 4;
  272.     progressOpAddMovieSelection    = 5;
  273.     progressOpCopy                = 6;
  274.     progressOpCut                = 7;
  275.     progressOpLoadMovieIntoRam    = 8;
  276.     progressOpLoadTrackIntoRam    = 9;
  277.     progressOpLoadMediaIntoRam    = 10;
  278.     progressOpImportMovie        = 11;
  279.     progressOpExportMovie        = 12;
  280.  
  281.     mediaQualityDraft            = $0000;
  282.     mediaQualityNormal            = $0040;
  283.     mediaQualityBetter            = $0080;
  284.     mediaQualityBest            = $00C0;
  285.  
  286. TYPE
  287.     MovieRgnCoverProcPtr = ProcPtr;  { FUNCTION MovieRgnCover(theMovie: Movie; changedRgn: RgnHandle; refcon: LONGINT): OSErr; }
  288.     MovieProgressProcPtr = ProcPtr;  { FUNCTION MovieProgress(theMovie: Movie; message: INTEGER; whatOperation: INTEGER; percentDone: Fixed; refcon: LONGINT): OSErr; }
  289.     MovieDrawingCompleteProcPtr = ProcPtr;  { FUNCTION MovieDrawingComplete(theMovie: Movie; refCon: LONGINT): OSErr; }
  290.     TrackTransferProcPtr = ProcPtr;  { FUNCTION TrackTransfer(t: Track; refCon: LONGINT): OSErr; }
  291.     GetMovieProcPtr = ProcPtr;  { FUNCTION GetMovie(offset: LONGINT; size: LONGINT; dataPtr: UNIV Ptr; refCon: UNIV Ptr): OSErr; }
  292.     MoviePreviewCallOutProcPtr = ProcPtr;  { FUNCTION MoviePreviewCallOut(refcon: LONGINT): BOOLEAN; }
  293.     MoviesErrorProcPtr = ProcPtr;  { PROCEDURE MoviesError(theErr: OSErr; refcon: LONGINT); }
  294.     TextMediaProcPtr = ProcPtr;  { FUNCTION TextMedia(theText: Handle; theMovie: Movie; VAR displayFlag: INTEGER; refcon: LONGINT): OSErr; }
  295.     MovieRgnCoverUPP = UniversalProcPtr;
  296.     MovieProgressUPP = UniversalProcPtr;
  297.     MovieDrawingCompleteUPP = UniversalProcPtr;
  298.     TrackTransferUPP = UniversalProcPtr;
  299.     GetMovieUPP = UniversalProcPtr;
  300.     MoviePreviewCallOutUPP = UniversalProcPtr;
  301.     MoviesErrorUPP = UniversalProcPtr;
  302.     TextMediaUPP = UniversalProcPtr;
  303.  
  304.     MediaHandler = ComponentInstance;
  305.     DataHandler = ComponentInstance;
  306.  
  307.     MediaHandlerComponent = Component;
  308.     DataHandlerComponent = Component;
  309.  
  310.     HandlerError = ComponentResult;
  311.  
  312.     TimeValue = LONGINT;
  313.  
  314.     TimeScale = LONGINT;
  315.  
  316.     CompTimeValue = wide;
  317.  
  318.  
  319. CONST
  320.     loopTimeBase                = 1;
  321.     palindromeLoopTimeBase        = 2;
  322.     maintainTimeBaseZero        = 4;
  323.  
  324.     
  325. TYPE
  326.     TimeBaseFlags = LONGINT;
  327.  
  328.     TimeBaseRecord = RECORD
  329.         data:                    ARRAY [0..0] OF LONGINT;
  330.     END;
  331.  
  332.     TimeBase = ^TimeBaseRecord;
  333.  
  334.     CallBackRecord = RECORD
  335.         data:                    ARRAY [0..0] OF LONGINT;
  336.     END;
  337.  
  338.     QTCallBack = ^CallBackRecord;
  339.  
  340.     TimeRecord = RECORD
  341.         value:                    CompTimeValue;                            { units }
  342.         scale:                    TimeScale;                                { units per second }
  343.         base:                    TimeBase;
  344.     END;
  345.  
  346. { CallBack equates }
  347.  
  348. CONST
  349.     triggerTimeFwd                = $0001;                        { when curTime exceeds triggerTime going forward }
  350.     triggerTimeBwd                = $0002;                        { when curTime exceeds triggerTime going backwards }
  351.     triggerTimeEither            = $0003;                        { when curTime exceeds triggerTime going either direction }
  352.     triggerRateLT                = $0004;                        { when rate changes to less than trigger value }
  353.     triggerRateGT                = $0008;                        { when rate changes to greater than trigger value }
  354.     triggerRateEqual            = $0010;                        { when rate changes to equal trigger value }
  355.     triggerRateLTE                = triggerRateLT + triggerRateEqual;
  356.     triggerRateGTE                = triggerRateGT + triggerRateEqual;
  357.     triggerRateNotEqual            = triggerRateGT + triggerRateEqual + triggerRateLT;
  358.     triggerRateChange            = 0;
  359.     triggerAtStart                = $0001;
  360.     triggerAtStop                = $0002;
  361.  
  362.     
  363. TYPE
  364.     QTCallBackFlags = INTEGER;
  365.  
  366.  
  367. CONST
  368.     timeBaseBeforeStartTime        = 1;
  369.     timeBaseAfterStopTime        = 2;
  370.  
  371.     
  372. TYPE
  373.     TimeBaseStatus = LONGINT;
  374.  
  375.  
  376. CONST
  377.     callBackAtTime                = 1;
  378.     callBackAtRate                = 2;
  379.     callBackAtTimeJump            = 3;
  380.     callBackAtExtremes            = 4;
  381.     callBackAtInterrupt            = $8000;
  382.     callBackAtDeferredTask        = $4000;
  383.  
  384.     
  385. TYPE
  386.     QTCallBackType = INTEGER;
  387.  
  388.     QTCallBackProcPtr = ProcPtr;  { PROCEDURE QTCallBack(cb: QTCallBack; refCon: LONGINT); }
  389.     QTCallBackUPP = UniversalProcPtr;
  390.  
  391.  
  392. CONST
  393.     qtcbNeedsRateChanges        = 1;                            { wants to know about rate changes }
  394.     qtcbNeedsTimeChanges        = 2;                            { wants to know about time changes }
  395.     qtcbNeedsStartStopChanges    = 4;                            { wants to know when TimeBase start/stop is changed}
  396.  
  397.  
  398. TYPE
  399.     QTCallBackHeader = RECORD
  400.         callBackFlags:            LONGINT;
  401.         reserved1:                LONGINT;
  402.         qtPrivate:                ARRAY [0..39] OF SInt8;
  403.     END;
  404.  
  405.     QTSyncTaskProcPtr = ProcPtr;  { PROCEDURE QTSyncTask(task: UNIV Ptr); }
  406.     QTSyncTaskUPP = UniversalProcPtr;
  407.  
  408.     QTSyncTaskRecord = RECORD
  409.         qLink:                    Ptr;
  410.         proc:                    QTSyncTaskUPP;
  411.     END;
  412.  
  413.     QTSyncTaskPtr = ^QTSyncTaskRecord;
  414.  
  415.  
  416. CONST
  417.     keepInRam                    = 1 * (2**(0));                    { load and make non-purgable}
  418.     unkeepInRam                    = 1 * (2**(1));                    { mark as purgable}
  419.     flushFromRam                = 1 * (2**(2));                    { empty those handles}
  420.     loadForwardTrackEdits        = 1 * (2**(3));                    {    load track edits into ram for playing forward}
  421.     loadBackwardTrackEdits        = 1 * (2**(4));                    {    load track edits into ram for playing in reverse}
  422.  
  423.     newMovieActive                = 1 * (2**(0));
  424.     newMovieDontResolveDataRefs    = 1 * (2**(1));
  425.     newMovieDontAskUnresolvedDataRefs = 1 * (2**(2));
  426.     newMovieDontAutoAlternates    = 1 * (2**(3));
  427.  
  428. { track usage bits }
  429.     trackUsageInMovie            = 1 * (2**(1));
  430.     trackUsageInPreview            = 1 * (2**(2));
  431.     trackUsageInPoster            = 1 * (2**(3));
  432.  
  433. { Add/GetMediaSample flags }
  434.     mediaSampleNotSync            = 1 * (2**(0));                    { sample is not a sync sample (eg. is frame differenced }
  435.     mediaSampleShadowSync        = 1 * (2**(1));                    { sample is a shadow sync }
  436.  
  437.     pasteInParallel                = 1;
  438.     showUserSettingsDialog        = 2;
  439.     movieToFileOnlyExport        = 4;
  440.     movieFileSpecValid            = 8;
  441.  
  442.     nextTimeMediaSample            = 1 * (2**(0));
  443.     nextTimeMediaEdit            = 1 * (2**(1));
  444.     nextTimeTrackEdit            = 1 * (2**(2));
  445.     nextTimeSyncSample            = 1 * (2**(3));
  446.     nextTimeStep                = 1 * (2**(4));
  447.     nextTimeEdgeOK                = 1 * (2**(14));
  448.     nextTimeIgnoreActiveSegment    = 1 * (2**(15));
  449.  
  450.     
  451. TYPE
  452.     nextTimeFlagsEnum = INTEGER;
  453.  
  454.  
  455. CONST
  456.     createMovieFileDeleteCurFile = 1 * (2**(31));
  457.     createMovieFileDontCreateMovie = 1 * (2**(30));
  458.     createMovieFileDontOpenFile    = 1 * (2**(29));
  459.  
  460.     
  461. TYPE
  462.     createMovieFileFlagsEnum = LONGINT;
  463.  
  464.  
  465. CONST
  466.     flattenAddMovieToDataFork    = 1 * (2**(0));
  467.     flattenActiveTracksOnly        = 1 * (2**(2));
  468.     flattenDontInterleaveFlatten = 1 * (2**(3));
  469.     flattenFSSpecPtrIsDataRefRecordPtr = 1 * (2**(4));
  470.  
  471.     
  472. TYPE
  473.     movieFlattenFlagsEnum = LONGINT;
  474.  
  475.  
  476. CONST
  477.     movieInDataForkResID        = -1;                            { magic res ID }
  478.  
  479.     mcTopLeftMovie                = 1 * (2**(0));                    { usually centered }
  480.     mcScaleMovieToFit            = 1 * (2**(1));                    { usually only scales down }
  481.     mcWithBadge                    = 1 * (2**(2));                    { give me a badge }
  482.     mcNotVisible                = 1 * (2**(3));                    { don't show controller }
  483.     mcWithFrame                    = 1 * (2**(4));                    { gimme a frame }
  484.  
  485.     movieScrapDontZeroScrap        = 1 * (2**(0));
  486.     movieScrapOnlyPutMovie        = 1 * (2**(1));
  487.  
  488.     dataRefSelfReference        = 1 * (2**(0));
  489.     dataRefWasNotResolved        = 1 * (2**(1));
  490.  
  491.     
  492. TYPE
  493.     dataRefAttributesFlags = LONGINT;
  494.  
  495.  
  496. CONST
  497.     hintsScrubMode                = 1 * (2**(0));                    { mask == && (if flags == scrub on, flags != scrub off) }
  498.     hintsLoop                    = 1 * (2**(1));
  499.     hintsDontPurge                = 1 * (2**(2));
  500.     hintsUseScreenBuffer        = 1 * (2**(5));
  501.     hintsAllowInterlace            = 1 * (2**(6));
  502.     hintsUseSoundInterp            = 1 * (2**(7));
  503.     hintsHighQuality            = 1 * (2**(8));                    { slooooow }
  504.     hintsPalindrome                = 1 * (2**(9));
  505.     hintsInactive                = 1 * (2**(11));
  506.  
  507.     
  508. TYPE
  509.     playHintsEnum = LONGINT;
  510.  
  511.  
  512. CONST
  513.     mediaHandlerFlagBaseClient    = 1;
  514.  
  515.     
  516. TYPE
  517.     mediaHandlerFlagsEnum = LONGINT;
  518.  
  519.  
  520. CONST
  521.     movieTrackMediaType            = 1 * (2**(0));
  522.     movieTrackCharacteristic    = 1 * (2**(1));
  523.     movieTrackEnabledOnly        = 1 * (2**(2));
  524.  
  525.  
  526. TYPE
  527.     SampleReferenceRecord = RECORD
  528.         dataOffset:                LONGINT;
  529.         dataSize:                LONGINT;
  530.         durationPerSample:        TimeValue;
  531.         numberOfSamples:        LONGINT;
  532.         sampleFlags:            INTEGER;
  533.     END;
  534.  
  535.     SampleReferencePtr = ^SampleReferenceRecord;
  536.  
  537. {************************
  538. * Initialization Routines 
  539. *************************}
  540.  
  541. FUNCTION EnterMovies: OSErr;
  542.     {$IFC NOT GENERATINGCFM}
  543.     INLINE $7001, $AAAA;
  544.     {$ENDC}
  545. PROCEDURE ExitMovies;
  546.     {$IFC NOT GENERATINGCFM}
  547.     INLINE $7002, $AAAA;
  548.     {$ENDC}
  549. {************************
  550. * Error Routines 
  551. *************************}
  552. FUNCTION GetMoviesError: OSErr;
  553.     {$IFC NOT GENERATINGCFM}
  554.     INLINE $7003, $AAAA;
  555.     {$ENDC}
  556. PROCEDURE ClearMoviesStickyError;
  557.     {$IFC NOT GENERATINGCFM}
  558.     INLINE $303C, $DE, $AAAA;
  559.     {$ENDC}
  560. FUNCTION GetMoviesStickyError: OSErr;
  561.     {$IFC NOT GENERATINGCFM}
  562.     INLINE $7004, $AAAA;
  563.     {$ENDC}
  564. PROCEDURE SetMoviesErrorProc(errProc: MoviesErrorUPP; refcon: LONGINT);
  565.     {$IFC NOT GENERATINGCFM}
  566.     INLINE $303C, $EF, $AAAA;
  567.     {$ENDC}
  568. {************************
  569. * Idle Routines 
  570. *************************}
  571. PROCEDURE MoviesTask(theMovie: Movie; maxMilliSecToUse: LONGINT);
  572.     {$IFC NOT GENERATINGCFM}
  573.     INLINE $7005, $AAAA;
  574.     {$ENDC}
  575. FUNCTION PrerollMovie(theMovie: Movie; time: TimeValue; Rate: Fixed): OSErr;
  576.     {$IFC NOT GENERATINGCFM}
  577.     INLINE $7006, $AAAA;
  578.     {$ENDC}
  579. FUNCTION LoadMovieIntoRam(theMovie: Movie; time: TimeValue; duration: TimeValue; flags: LONGINT): OSErr;
  580.     {$IFC NOT GENERATINGCFM}
  581.     INLINE $7007, $AAAA;
  582.     {$ENDC}
  583. FUNCTION LoadTrackIntoRam(theTrack: Track; time: TimeValue; duration: TimeValue; flags: LONGINT): OSErr;
  584.     {$IFC NOT GENERATINGCFM}
  585.     INLINE $303C, $16E, $AAAA;
  586.     {$ENDC}
  587. FUNCTION LoadMediaIntoRam(theMedia: Media; time: TimeValue; duration: TimeValue; flags: LONGINT): OSErr;
  588.     {$IFC NOT GENERATINGCFM}
  589.     INLINE $7008, $AAAA;
  590.     {$ENDC}
  591. PROCEDURE SetMovieActive(theMovie: Movie; active: BOOLEAN);
  592.     {$IFC NOT GENERATINGCFM}
  593.     INLINE $7009, $AAAA;
  594.     {$ENDC}
  595. FUNCTION GetMovieActive(theMovie: Movie): BOOLEAN;
  596.     {$IFC NOT GENERATINGCFM}
  597.     INLINE $700A, $AAAA;
  598.     {$ENDC}
  599. {************************
  600. * calls for playing movies, previews, posters
  601. *************************}
  602. PROCEDURE StartMovie(theMovie: Movie);
  603.     {$IFC NOT GENERATINGCFM}
  604.     INLINE $700B, $AAAA;
  605.     {$ENDC}
  606. PROCEDURE StopMovie(theMovie: Movie);
  607.     {$IFC NOT GENERATINGCFM}
  608.     INLINE $700C, $AAAA;
  609.     {$ENDC}
  610. PROCEDURE GoToBeginningOfMovie(theMovie: Movie);
  611.     {$IFC NOT GENERATINGCFM}
  612.     INLINE $700D, $AAAA;
  613.     {$ENDC}
  614. PROCEDURE GoToEndOfMovie(theMovie: Movie);
  615.     {$IFC NOT GENERATINGCFM}
  616.     INLINE $700E, $AAAA;
  617.     {$ENDC}
  618. FUNCTION IsMovieDone(theMovie: Movie): BOOLEAN;
  619.     {$IFC NOT GENERATINGCFM}
  620.     INLINE $303C, $DD, $AAAA;
  621.     {$ENDC}
  622. FUNCTION GetMoviePreviewMode(theMovie: Movie): BOOLEAN;
  623.     {$IFC NOT GENERATINGCFM}
  624.     INLINE $700F, $AAAA;
  625.     {$ENDC}
  626. PROCEDURE SetMoviePreviewMode(theMovie: Movie; usePreview: BOOLEAN);
  627.     {$IFC NOT GENERATINGCFM}
  628.     INLINE $7010, $AAAA;
  629.     {$ENDC}
  630. PROCEDURE ShowMoviePoster(theMovie: Movie);
  631.     {$IFC NOT GENERATINGCFM}
  632.     INLINE $7011, $AAAA;
  633.     {$ENDC}
  634. PROCEDURE PlayMoviePreview(theMovie: Movie; callOutProc: MoviePreviewCallOutUPP; refcon: LONGINT);
  635.     {$IFC NOT GENERATINGCFM}
  636.     INLINE $303C, $F2, $AAAA;
  637.     {$ENDC}
  638. {************************
  639. * calls for controlling movies & tracks which are playing
  640. *************************}
  641. FUNCTION GetMovieTimeBase(theMovie: Movie): TimeBase;
  642.     {$IFC NOT GENERATINGCFM}
  643.     INLINE $7012, $AAAA;
  644.     {$ENDC}
  645. PROCEDURE SetMovieMasterTimeBase(theMovie: Movie; tb: TimeBase; {CONST}VAR slaveZero: TimeRecord);
  646.     {$IFC NOT GENERATINGCFM}
  647.     INLINE $303C, $167, $AAAA;
  648.     {$ENDC}
  649. PROCEDURE SetMovieMasterClock(theMovie: Movie; clockMeister: Component; {CONST}VAR slaveZero: TimeRecord);
  650.     {$IFC NOT GENERATINGCFM}
  651.     INLINE $303C, $168, $AAAA;
  652.     {$ENDC}
  653. PROCEDURE GetMovieGWorld(theMovie: Movie; VAR port: CGrafPtr; VAR gdh: GDHandle);
  654.     {$IFC NOT GENERATINGCFM}
  655.     INLINE $7015, $AAAA;
  656.     {$ENDC}
  657. PROCEDURE SetMovieGWorld(theMovie: Movie; port: CGrafPtr; gdh: GDHandle);
  658.     {$IFC NOT GENERATINGCFM}
  659.     INLINE $7016, $AAAA;
  660.     {$ENDC}
  661.  
  662. CONST
  663.     movieDrawingCallWhenChanged    = 0;
  664.     movieDrawingCallAlways        = 1;
  665.  
  666.  
  667. PROCEDURE SetMovieDrawingCompleteProc(theMovie: Movie; flags: LONGINT; proc: MovieDrawingCompleteUPP; refCon: LONGINT);
  668.     {$IFC NOT GENERATINGCFM}
  669.     INLINE $303C, $1DE, $AAAA;
  670.     {$ENDC}
  671. FUNCTION GetNextTrackForCompositing(theMovie: Movie; theTrack: Track): Track;
  672.     {$IFC NOT GENERATINGCFM}
  673.     INLINE $303C, $1FA, $AAAA;
  674.     {$ENDC}
  675. FUNCTION GetPrevTrackForCompositing(theMovie: Movie; theTrack: Track): Track;
  676.     {$IFC NOT GENERATINGCFM}
  677.     INLINE $303C, $1FB, $AAAA;
  678.     {$ENDC}
  679. PROCEDURE SetTrackGWorld(theTrack: Track; port: CGrafPtr; gdh: GDHandle; proc: TrackTransferUPP; refCon: LONGINT);
  680.     {$IFC NOT GENERATINGCFM}
  681.     INLINE $303C, $9D, $AAAA;
  682.     {$ENDC}
  683. FUNCTION GetMoviePict(theMovie: Movie; time: TimeValue): PicHandle;
  684.     {$IFC NOT GENERATINGCFM}
  685.     INLINE $701D, $AAAA;
  686.     {$ENDC}
  687. FUNCTION GetTrackPict(theTrack: Track; time: TimeValue): PicHandle;
  688.     {$IFC NOT GENERATINGCFM}
  689.     INLINE $701E, $AAAA;
  690.     {$ENDC}
  691. FUNCTION GetMoviePosterPict(theMovie: Movie): PicHandle;
  692.     {$IFC NOT GENERATINGCFM}
  693.     INLINE $303C, $F7, $AAAA;
  694.     {$ENDC}
  695. { called between Begin & EndUpdate }
  696. FUNCTION UpdateMovie(theMovie: Movie): OSErr;
  697.     {$IFC NOT GENERATINGCFM}
  698.     INLINE $701F, $AAAA;
  699.     {$ENDC}
  700. FUNCTION InvalidateMovieRegion(theMovie: Movie; invalidRgn: RgnHandle): OSErr;
  701.     {$IFC NOT GENERATINGCFM}
  702.     INLINE $303C, $22A, $AAAA;
  703.     {$ENDC}
  704. {*** spatial movie routines ***}
  705. PROCEDURE GetMovieBox(theMovie: Movie; VAR boxRect: Rect);
  706.     {$IFC NOT GENERATINGCFM}
  707.     INLINE $303C, $F9, $AAAA;
  708.     {$ENDC}
  709. PROCEDURE SetMovieBox(theMovie: Movie; {CONST}VAR boxRect: Rect);
  710.     {$IFC NOT GENERATINGCFM}
  711.     INLINE $303C, $FA, $AAAA;
  712.     {$ENDC}
  713. {* movie display clip }
  714. FUNCTION GetMovieDisplayClipRgn(theMovie: Movie): RgnHandle;
  715.     {$IFC NOT GENERATINGCFM}
  716.     INLINE $303C, $FC, $AAAA;
  717.     {$ENDC}
  718. PROCEDURE SetMovieDisplayClipRgn(theMovie: Movie; theClip: RgnHandle);
  719.     {$IFC NOT GENERATINGCFM}
  720.     INLINE $303C, $FD, $AAAA;
  721.     {$ENDC}
  722. {* movie src clip }
  723. FUNCTION GetMovieClipRgn(theMovie: Movie): RgnHandle;
  724.     {$IFC NOT GENERATINGCFM}
  725.     INLINE $303C, $100, $AAAA;
  726.     {$ENDC}
  727. PROCEDURE SetMovieClipRgn(theMovie: Movie; theClip: RgnHandle);
  728.     {$IFC NOT GENERATINGCFM}
  729.     INLINE $303C, $101, $AAAA;
  730.     {$ENDC}
  731. {* track src clip }
  732. FUNCTION GetTrackClipRgn(theTrack: Track): RgnHandle;
  733.     {$IFC NOT GENERATINGCFM}
  734.     INLINE $303C, $102, $AAAA;
  735.     {$ENDC}
  736. PROCEDURE SetTrackClipRgn(theTrack: Track; theClip: RgnHandle);
  737.     {$IFC NOT GENERATINGCFM}
  738.     INLINE $303C, $103, $AAAA;
  739.     {$ENDC}
  740. {* bounds in display space (not clipped by display clip) }
  741. FUNCTION GetMovieDisplayBoundsRgn(theMovie: Movie): RgnHandle;
  742.     {$IFC NOT GENERATINGCFM}
  743.     INLINE $303C, $FB, $AAAA;
  744.     {$ENDC}
  745. FUNCTION GetTrackDisplayBoundsRgn(theTrack: Track): RgnHandle;
  746.     {$IFC NOT GENERATINGCFM}
  747.     INLINE $303C, $112, $AAAA;
  748.     {$ENDC}
  749. {* bounds in movie space }
  750. FUNCTION GetMovieBoundsRgn(theMovie: Movie): RgnHandle;
  751.     {$IFC NOT GENERATINGCFM}
  752.     INLINE $303C, $FE, $AAAA;
  753.     {$ENDC}
  754. FUNCTION GetTrackMovieBoundsRgn(theTrack: Track): RgnHandle;
  755.     {$IFC NOT GENERATINGCFM}
  756.     INLINE $303C, $FF, $AAAA;
  757.     {$ENDC}
  758. {* bounds in track space }
  759. FUNCTION GetTrackBoundsRgn(theTrack: Track): RgnHandle;
  760.     {$IFC NOT GENERATINGCFM}
  761.     INLINE $303C, $111, $AAAA;
  762.     {$ENDC}
  763. {* mattes - always in track space }
  764. FUNCTION GetTrackMatte(theTrack: Track): PixMapHandle;
  765.     {$IFC NOT GENERATINGCFM}
  766.     INLINE $303C, $115, $AAAA;
  767.     {$ENDC}
  768. PROCEDURE SetTrackMatte(theTrack: Track; theMatte: PixMapHandle);
  769.     {$IFC NOT GENERATINGCFM}
  770.     INLINE $303C, $116, $AAAA;
  771.     {$ENDC}
  772. PROCEDURE DisposeMatte(theMatte: PixMapHandle);
  773.     {$IFC NOT GENERATINGCFM}
  774.     INLINE $303C, $14A, $AAAA;
  775.     {$ENDC}
  776. {************************
  777. * calls for getting/saving movies
  778. *************************}
  779. FUNCTION NewMovie(flags: LONGINT): Movie;
  780.     {$IFC NOT GENERATINGCFM}
  781.     INLINE $303C, $187, $AAAA;
  782.     {$ENDC}
  783. FUNCTION PutMovieIntoHandle(theMovie: Movie; publicMovie: Handle): OSErr;
  784.     {$IFC NOT GENERATINGCFM}
  785.     INLINE $7022, $AAAA;
  786.     {$ENDC}
  787. FUNCTION PutMovieIntoDataFork(theMovie: Movie; fRefNum: INTEGER; offset: LONGINT; maxSize: LONGINT): OSErr;
  788.     {$IFC NOT GENERATINGCFM}
  789.     INLINE $303C, $1B4, $AAAA;
  790.     {$ENDC}
  791. PROCEDURE DisposeMovie(theMovie: Movie);
  792.     {$IFC NOT GENERATINGCFM}
  793.     INLINE $7023, $AAAA;
  794.     {$ENDC}
  795. {************************
  796. * Movie State Routines
  797. *************************}
  798. FUNCTION GetMovieCreationTime(theMovie: Movie): LONGINT;
  799.     {$IFC NOT GENERATINGCFM}
  800.     INLINE $7026, $AAAA;
  801.     {$ENDC}
  802. FUNCTION GetMovieModificationTime(theMovie: Movie): LONGINT;
  803.     {$IFC NOT GENERATINGCFM}
  804.     INLINE $7027, $AAAA;
  805.     {$ENDC}
  806. FUNCTION GetMovieTimeScale(theMovie: Movie): TimeScale;
  807.     {$IFC NOT GENERATINGCFM}
  808.     INLINE $7029, $AAAA;
  809.     {$ENDC}
  810. PROCEDURE SetMovieTimeScale(theMovie: Movie; timeScale: TimeScale);
  811.     {$IFC NOT GENERATINGCFM}
  812.     INLINE $702A, $AAAA;
  813.     {$ENDC}
  814. FUNCTION GetMovieDuration(theMovie: Movie): TimeValue;
  815.     {$IFC NOT GENERATINGCFM}
  816.     INLINE $702B, $AAAA;
  817.     {$ENDC}
  818. FUNCTION GetMovieRate(theMovie: Movie): Fixed;
  819.     {$IFC NOT GENERATINGCFM}
  820.     INLINE $702C, $AAAA;
  821.     {$ENDC}
  822. PROCEDURE SetMovieRate(theMovie: Movie; rate: Fixed);
  823.     {$IFC NOT GENERATINGCFM}
  824.     INLINE $702D, $AAAA;
  825.     {$ENDC}
  826. FUNCTION GetMoviePreferredRate(theMovie: Movie): Fixed;
  827.     {$IFC NOT GENERATINGCFM}
  828.     INLINE $303C, $F3, $AAAA;
  829.     {$ENDC}
  830. PROCEDURE SetMoviePreferredRate(theMovie: Movie; rate: Fixed);
  831.     {$IFC NOT GENERATINGCFM}
  832.     INLINE $303C, $F4, $AAAA;
  833.     {$ENDC}
  834. FUNCTION GetMoviePreferredVolume(theMovie: Movie): INTEGER;
  835.     {$IFC NOT GENERATINGCFM}
  836.     INLINE $303C, $F5, $AAAA;
  837.     {$ENDC}
  838. PROCEDURE SetMoviePreferredVolume(theMovie: Movie; volume: INTEGER);
  839.     {$IFC NOT GENERATINGCFM}
  840.     INLINE $303C, $F6, $AAAA;
  841.     {$ENDC}
  842. FUNCTION GetMovieVolume(theMovie: Movie): INTEGER;
  843.     {$IFC NOT GENERATINGCFM}
  844.     INLINE $702E, $AAAA;
  845.     {$ENDC}
  846. PROCEDURE SetMovieVolume(theMovie: Movie; volume: INTEGER);
  847.     {$IFC NOT GENERATINGCFM}
  848.     INLINE $702F, $AAAA;
  849.     {$ENDC}
  850. PROCEDURE GetMovieMatrix(theMovie: Movie; VAR matrix: MatrixRecord);
  851.     {$IFC NOT GENERATINGCFM}
  852.     INLINE $7031, $AAAA;
  853.     {$ENDC}
  854. PROCEDURE SetMovieMatrix(theMovie: Movie; {CONST}VAR matrix: MatrixRecord);
  855.     {$IFC NOT GENERATINGCFM}
  856.     INLINE $7032, $AAAA;
  857.     {$ENDC}
  858. PROCEDURE GetMoviePreviewTime(theMovie: Movie; VAR previewTime: TimeValue; VAR previewDuration: TimeValue);
  859.     {$IFC NOT GENERATINGCFM}
  860.     INLINE $7033, $AAAA;
  861.     {$ENDC}
  862. PROCEDURE SetMoviePreviewTime(theMovie: Movie; previewTime: TimeValue; previewDuration: TimeValue);
  863.     {$IFC NOT GENERATINGCFM}
  864.     INLINE $7034, $AAAA;
  865.     {$ENDC}
  866. FUNCTION GetMoviePosterTime(theMovie: Movie): TimeValue;
  867.     {$IFC NOT GENERATINGCFM}
  868.     INLINE $7035, $AAAA;
  869.     {$ENDC}
  870. PROCEDURE SetMoviePosterTime(theMovie: Movie; posterTime: TimeValue);
  871.     {$IFC NOT GENERATINGCFM}
  872.     INLINE $7036, $AAAA;
  873.     {$ENDC}
  874. PROCEDURE GetMovieSelection(theMovie: Movie; VAR selectionTime: TimeValue; VAR selectionDuration: TimeValue);
  875.     {$IFC NOT GENERATINGCFM}
  876.     INLINE $7037, $AAAA;
  877.     {$ENDC}
  878. PROCEDURE SetMovieSelection(theMovie: Movie; selectionTime: TimeValue; selectionDuration: TimeValue);
  879.     {$IFC NOT GENERATINGCFM}
  880.     INLINE $7038, $AAAA;
  881.     {$ENDC}
  882. PROCEDURE SetMovieActiveSegment(theMovie: Movie; startTime: TimeValue; duration: TimeValue);
  883.     {$IFC NOT GENERATINGCFM}
  884.     INLINE $303C, $15C, $AAAA;
  885.     {$ENDC}
  886. PROCEDURE GetMovieActiveSegment(theMovie: Movie; VAR startTime: TimeValue; VAR duration: TimeValue);
  887.     {$IFC NOT GENERATINGCFM}
  888.     INLINE $303C, $15D, $AAAA;
  889.     {$ENDC}
  890. FUNCTION GetMovieTime(theMovie: Movie; VAR currentTime: TimeRecord): TimeValue;
  891.     {$IFC NOT GENERATINGCFM}
  892.     INLINE $7039, $AAAA;
  893.     {$ENDC}
  894. PROCEDURE SetMovieTime(theMovie: Movie; {CONST}VAR newtime: TimeRecord);
  895.     {$IFC NOT GENERATINGCFM}
  896.     INLINE $703C, $AAAA;
  897.     {$ENDC}
  898. PROCEDURE SetMovieTimeValue(theMovie: Movie; newtime: TimeValue);
  899.     {$IFC NOT GENERATINGCFM}
  900.     INLINE $703D, $AAAA;
  901.     {$ENDC}
  902. FUNCTION GetMovieUserData(theMovie: Movie): UserData;
  903.     {$IFC NOT GENERATINGCFM}
  904.     INLINE $703E, $AAAA;
  905.     {$ENDC}
  906. {************************
  907. * Track/Media finding routines
  908. *************************}
  909. FUNCTION GetMovieTrackCount(theMovie: Movie): LONGINT;
  910.     {$IFC NOT GENERATINGCFM}
  911.     INLINE $703F, $AAAA;
  912.     {$ENDC}
  913. FUNCTION GetMovieTrack(theMovie: Movie; trackID: LONGINT): Track;
  914.     {$IFC NOT GENERATINGCFM}
  915.     INLINE $7040, $AAAA;
  916.     {$ENDC}
  917. FUNCTION GetMovieIndTrack(theMovie: Movie; index: LONGINT): Track;
  918.     {$IFC NOT GENERATINGCFM}
  919.     INLINE $303C, $117, $AAAA;
  920.     {$ENDC}
  921. FUNCTION GetMovieIndTrackType(theMovie: Movie; index: LONGINT; trackType: OSType; flags: LONGINT): Track;
  922.     {$IFC NOT GENERATINGCFM}
  923.     INLINE $303C, $208, $AAAA;
  924.     {$ENDC}
  925. FUNCTION GetTrackID(theTrack: Track): LONGINT;
  926.     {$IFC NOT GENERATINGCFM}
  927.     INLINE $303C, $127, $AAAA;
  928.     {$ENDC}
  929. FUNCTION GetTrackMovie(theTrack: Track): Movie;
  930.     {$IFC NOT GENERATINGCFM}
  931.     INLINE $303C, $D0, $AAAA;
  932.     {$ENDC}
  933. {************************
  934. * Track creation routines
  935. *************************}
  936. FUNCTION NewMovieTrack(theMovie: Movie; width: Fixed; height: Fixed; trackVolume: INTEGER): Track;
  937.     {$IFC NOT GENERATINGCFM}
  938.     INLINE $303C, $188, $AAAA;
  939.     {$ENDC}
  940. PROCEDURE DisposeMovieTrack(theTrack: Track);
  941.     {$IFC NOT GENERATINGCFM}
  942.     INLINE $7042, $AAAA;
  943.     {$ENDC}
  944. {************************
  945. * Track State routines
  946. *************************}
  947. FUNCTION GetTrackCreationTime(theTrack: Track): LONGINT;
  948.     {$IFC NOT GENERATINGCFM}
  949.     INLINE $7043, $AAAA;
  950.     {$ENDC}
  951. FUNCTION GetTrackModificationTime(theTrack: Track): LONGINT;
  952.     {$IFC NOT GENERATINGCFM}
  953.     INLINE $7044, $AAAA;
  954.     {$ENDC}
  955. FUNCTION GetTrackEnabled(theTrack: Track): BOOLEAN;
  956.     {$IFC NOT GENERATINGCFM}
  957.     INLINE $7045, $AAAA;
  958.     {$ENDC}
  959. PROCEDURE SetTrackEnabled(theTrack: Track; isEnabled: BOOLEAN);
  960.     {$IFC NOT GENERATINGCFM}
  961.     INLINE $7046, $AAAA;
  962.     {$ENDC}
  963. FUNCTION GetTrackUsage(theTrack: Track): LONGINT;
  964.     {$IFC NOT GENERATINGCFM}
  965.     INLINE $7047, $AAAA;
  966.     {$ENDC}
  967. PROCEDURE SetTrackUsage(theTrack: Track; usage: LONGINT);
  968.     {$IFC NOT GENERATINGCFM}
  969.     INLINE $7048, $AAAA;
  970.     {$ENDC}
  971. FUNCTION GetTrackDuration(theTrack: Track): TimeValue;
  972.     {$IFC NOT GENERATINGCFM}
  973.     INLINE $704B, $AAAA;
  974.     {$ENDC}
  975. FUNCTION GetTrackOffset(theTrack: Track): TimeValue;
  976.     {$IFC NOT GENERATINGCFM}
  977.     INLINE $704C, $AAAA;
  978.     {$ENDC}
  979. PROCEDURE SetTrackOffset(theTrack: Track; movieOffsetTime: TimeValue);
  980.     {$IFC NOT GENERATINGCFM}
  981.     INLINE $704D, $AAAA;
  982.     {$ENDC}
  983. FUNCTION GetTrackLayer(theTrack: Track): INTEGER;
  984.     {$IFC NOT GENERATINGCFM}
  985.     INLINE $7050, $AAAA;
  986.     {$ENDC}
  987. PROCEDURE SetTrackLayer(theTrack: Track; layer: INTEGER);
  988.     {$IFC NOT GENERATINGCFM}
  989.     INLINE $7051, $AAAA;
  990.     {$ENDC}
  991. FUNCTION GetTrackAlternate(theTrack: Track): Track;
  992.     {$IFC NOT GENERATINGCFM}
  993.     INLINE $7052, $AAAA;
  994.     {$ENDC}
  995. PROCEDURE SetTrackAlternate(theTrack: Track; alternateT: Track);
  996.     {$IFC NOT GENERATINGCFM}
  997.     INLINE $7053, $AAAA;
  998.     {$ENDC}
  999. PROCEDURE SetAutoTrackAlternatesEnabled(theMovie: Movie; enable: BOOLEAN);
  1000.     {$IFC NOT GENERATINGCFM}
  1001.     INLINE $303C, $15E, $AAAA;
  1002.     {$ENDC}
  1003. PROCEDURE SelectMovieAlternates(theMovie: Movie);
  1004.     {$IFC NOT GENERATINGCFM}
  1005.     INLINE $303C, $15F, $AAAA;
  1006.     {$ENDC}
  1007. FUNCTION GetTrackVolume(theTrack: Track): INTEGER;
  1008.     {$IFC NOT GENERATINGCFM}
  1009.     INLINE $7054, $AAAA;
  1010.     {$ENDC}
  1011. PROCEDURE SetTrackVolume(theTrack: Track; volume: INTEGER);
  1012.     {$IFC NOT GENERATINGCFM}
  1013.     INLINE $7055, $AAAA;
  1014.     {$ENDC}
  1015. PROCEDURE GetTrackMatrix(theTrack: Track; VAR matrix: MatrixRecord);
  1016.     {$IFC NOT GENERATINGCFM}
  1017.     INLINE $7056, $AAAA;
  1018.     {$ENDC}
  1019. PROCEDURE SetTrackMatrix(theTrack: Track; {CONST}VAR matrix: MatrixRecord);
  1020.     {$IFC NOT GENERATINGCFM}
  1021.     INLINE $7057, $AAAA;
  1022.     {$ENDC}
  1023. PROCEDURE GetTrackDimensions(theTrack: Track; VAR width: Fixed; VAR height: Fixed);
  1024.     {$IFC NOT GENERATINGCFM}
  1025.     INLINE $705D, $AAAA;
  1026.     {$ENDC}
  1027. PROCEDURE SetTrackDimensions(theTrack: Track; width: Fixed; height: Fixed);
  1028.     {$IFC NOT GENERATINGCFM}
  1029.     INLINE $705E, $AAAA;
  1030.     {$ENDC}
  1031. FUNCTION GetTrackUserData(theTrack: Track): UserData;
  1032.     {$IFC NOT GENERATINGCFM}
  1033.     INLINE $705F, $AAAA;
  1034.     {$ENDC}
  1035. {************************
  1036. * get Media routines
  1037. *************************}
  1038. FUNCTION NewTrackMedia(theTrack: Track; mediaType: OSType; timeScale: TimeScale; dataRef: Handle; dataRefType: OSType): Media;
  1039.     {$IFC NOT GENERATINGCFM}
  1040.     INLINE $303C, $18E, $AAAA;
  1041.     {$ENDC}
  1042. PROCEDURE DisposeTrackMedia(theMedia: Media);
  1043.     {$IFC NOT GENERATINGCFM}
  1044.     INLINE $7061, $AAAA;
  1045.     {$ENDC}
  1046. FUNCTION GetTrackMedia(theTrack: Track): Media;
  1047.     {$IFC NOT GENERATINGCFM}
  1048.     INLINE $7062, $AAAA;
  1049.     {$ENDC}
  1050. FUNCTION GetMediaTrack(theMedia: Media): Track;
  1051.     {$IFC NOT GENERATINGCFM}
  1052.     INLINE $303C, $C5, $AAAA;
  1053.     {$ENDC}
  1054. {************************
  1055. * Media State routines
  1056. *************************}
  1057. FUNCTION GetMediaCreationTime(theMedia: Media): LONGINT;
  1058.     {$IFC NOT GENERATINGCFM}
  1059.     INLINE $7066, $AAAA;
  1060.     {$ENDC}
  1061. FUNCTION GetMediaModificationTime(theMedia: Media): LONGINT;
  1062.     {$IFC NOT GENERATINGCFM}
  1063.     INLINE $7067, $AAAA;
  1064.     {$ENDC}
  1065. FUNCTION GetMediaTimeScale(theMedia: Media): TimeScale;
  1066.     {$IFC NOT GENERATINGCFM}
  1067.     INLINE $7068, $AAAA;
  1068.     {$ENDC}
  1069. PROCEDURE SetMediaTimeScale(theMedia: Media; timeScale: TimeScale);
  1070.     {$IFC NOT GENERATINGCFM}
  1071.     INLINE $7069, $AAAA;
  1072.     {$ENDC}
  1073. FUNCTION GetMediaDuration(theMedia: Media): TimeValue;
  1074.     {$IFC NOT GENERATINGCFM}
  1075.     INLINE $706A, $AAAA;
  1076.     {$ENDC}
  1077. FUNCTION GetMediaLanguage(theMedia: Media): INTEGER;
  1078.     {$IFC NOT GENERATINGCFM}
  1079.     INLINE $706B, $AAAA;
  1080.     {$ENDC}
  1081. PROCEDURE SetMediaLanguage(theMedia: Media; language: INTEGER);
  1082.     {$IFC NOT GENERATINGCFM}
  1083.     INLINE $706C, $AAAA;
  1084.     {$ENDC}
  1085. FUNCTION GetMediaQuality(theMedia: Media): INTEGER;
  1086.     {$IFC NOT GENERATINGCFM}
  1087.     INLINE $706D, $AAAA;
  1088.     {$ENDC}
  1089. PROCEDURE SetMediaQuality(theMedia: Media; quality: INTEGER);
  1090.     {$IFC NOT GENERATINGCFM}
  1091.     INLINE $706E, $AAAA;
  1092.     {$ENDC}
  1093. PROCEDURE GetMediaHandlerDescription(theMedia: Media; VAR mediaType: OSType; VAR creatorName: Str255; VAR creatorManufacturer: OSType);
  1094.     {$IFC NOT GENERATINGCFM}
  1095.     INLINE $706F, $AAAA;
  1096.     {$ENDC}
  1097. FUNCTION GetMediaUserData(theMedia: Media): UserData;
  1098.     {$IFC NOT GENERATINGCFM}
  1099.     INLINE $7070, $AAAA;
  1100.     {$ENDC}
  1101. FUNCTION GetMediaInputMap(theMedia: Media; VAR inputMap: QTAtomContainer): OSErr;
  1102.     {$IFC NOT GENERATINGCFM}
  1103.     INLINE $303C, $249, $AAAA;
  1104.     {$ENDC}
  1105. FUNCTION SetMediaInputMap(theMedia: Media; inputMap: QTAtomContainer): OSErr;
  1106.     {$IFC NOT GENERATINGCFM}
  1107.     INLINE $303C, $24A, $AAAA;
  1108.     {$ENDC}
  1109. {************************
  1110. * Media Handler routines
  1111. *************************}
  1112. FUNCTION GetMediaHandler(theMedia: Media): MediaHandler;
  1113.     {$IFC NOT GENERATINGCFM}
  1114.     INLINE $7071, $AAAA;
  1115.     {$ENDC}
  1116. FUNCTION SetMediaHandler(theMedia: Media; mH: MediaHandlerComponent): OSErr;
  1117.     {$IFC NOT GENERATINGCFM}
  1118.     INLINE $303C, $190, $AAAA;
  1119.     {$ENDC}
  1120. {************************
  1121. * Media's Data routines
  1122. *************************}
  1123. FUNCTION BeginMediaEdits(theMedia: Media): OSErr;
  1124.     {$IFC NOT GENERATINGCFM}
  1125.     INLINE $7072, $AAAA;
  1126.     {$ENDC}
  1127. FUNCTION EndMediaEdits(theMedia: Media): OSErr;
  1128.     {$IFC NOT GENERATINGCFM}
  1129.     INLINE $7073, $AAAA;
  1130.     {$ENDC}
  1131. FUNCTION SetMediaDefaultDataRefIndex(theMedia: Media; index: INTEGER): OSErr;
  1132.     {$IFC NOT GENERATINGCFM}
  1133.     INLINE $303C, $1E0, $AAAA;
  1134.     {$ENDC}
  1135. PROCEDURE GetMediaDataHandlerDescription(theMedia: Media; index: INTEGER; VAR dhType: OSType; VAR creatorName: Str255; VAR creatorManufacturer: OSType);
  1136.     {$IFC NOT GENERATINGCFM}
  1137.     INLINE $303C, $19E, $AAAA;
  1138.     {$ENDC}
  1139. FUNCTION GetMediaDataHandler(theMedia: Media; index: INTEGER): DataHandler;
  1140.     {$IFC NOT GENERATINGCFM}
  1141.     INLINE $303C, $19F, $AAAA;
  1142.     {$ENDC}
  1143. FUNCTION SetMediaDataHandler(theMedia: Media; index: INTEGER; dataHandler: DataHandlerComponent): OSErr;
  1144.     {$IFC NOT GENERATINGCFM}
  1145.     INLINE $303C, $1A0, $AAAA;
  1146.     {$ENDC}
  1147. FUNCTION GetDataHandler(dataRef: Handle; dataHandlerSubType: OSType; flags: LONGINT): Component;
  1148.     {$IFC NOT GENERATINGCFM}
  1149.     INLINE $303C, $1ED, $AAAA;
  1150.     {$ENDC}
  1151. {************************
  1152. * Media Sample Table Routines
  1153. *************************}
  1154. FUNCTION GetMediaSampleDescriptionCount(theMedia: Media): LONGINT;
  1155.     {$IFC NOT GENERATINGCFM}
  1156.     INLINE $7077, $AAAA;
  1157.     {$ENDC}
  1158. PROCEDURE GetMediaSampleDescription(theMedia: Media; index: LONGINT; descH: SampleDescriptionHandle);
  1159.     {$IFC NOT GENERATINGCFM}
  1160.     INLINE $7078, $AAAA;
  1161.     {$ENDC}
  1162. FUNCTION SetMediaSampleDescription(theMedia: Media; index: LONGINT; descH: SampleDescriptionHandle): OSErr;
  1163.     {$IFC NOT GENERATINGCFM}
  1164.     INLINE $303C, $1D0, $AAAA;
  1165.     {$ENDC}
  1166. FUNCTION GetMediaSampleCount(theMedia: Media): LONGINT;
  1167.     {$IFC NOT GENERATINGCFM}
  1168.     INLINE $7079, $AAAA;
  1169.     {$ENDC}
  1170. PROCEDURE SampleNumToMediaTime(theMedia: Media; logicalSampleNum: LONGINT; VAR sampleTime: TimeValue; VAR sampleDuration: TimeValue);
  1171.     {$IFC NOT GENERATINGCFM}
  1172.     INLINE $707A, $AAAA;
  1173.     {$ENDC}
  1174. PROCEDURE MediaTimeToSampleNum(theMedia: Media; time: TimeValue; VAR sampleNum: LONGINT; VAR sampleTime: TimeValue; VAR sampleDuration: TimeValue);
  1175.     {$IFC NOT GENERATINGCFM}
  1176.     INLINE $707B, $AAAA;
  1177.     {$ENDC}
  1178. FUNCTION AddMediaSample(theMedia: Media; dataIn: Handle; inOffset: LONGINT; size: LONGINT; durationPerSample: TimeValue; sampleDescriptionH: SampleDescriptionHandle; numberOfSamples: LONGINT; sampleFlags: INTEGER; VAR sampleTime: TimeValue): OSErr;
  1179.     {$IFC NOT GENERATINGCFM}
  1180.     INLINE $707C, $AAAA;
  1181.     {$ENDC}
  1182. FUNCTION AddMediaSampleReference(theMedia: Media; dataOffset: LONGINT; size: LONGINT; durationPerSample: TimeValue; sampleDescriptionH: SampleDescriptionHandle; numberOfSamples: LONGINT; sampleFlags: INTEGER; VAR sampleTime: TimeValue): OSErr;
  1183.     {$IFC NOT GENERATINGCFM}
  1184.     INLINE $707D, $AAAA;
  1185.     {$ENDC}
  1186. FUNCTION AddMediaSampleReferences(theMedia: Media; sampleDescriptionH: SampleDescriptionHandle; numberOfSamples: LONGINT; sampleRefs: SampleReferencePtr; VAR sampleTime: TimeValue): OSErr;
  1187.     {$IFC NOT GENERATINGCFM}
  1188.     INLINE $303C, $1F7, $AAAA;
  1189.     {$ENDC}
  1190. FUNCTION GetMediaSample(theMedia: Media; dataOut: Handle; maxSizeToGrow: LONGINT; VAR size: LONGINT; time: TimeValue; VAR sampleTime: TimeValue; VAR durationPerSample: TimeValue; sampleDescriptionH: SampleDescriptionHandle; VAR sampleDescriptionIndex: LONGINT; maxNumberOfSamples: LONGINT; VAR numberOfSamples: LONGINT; VAR sampleFlags: INTEGER): OSErr;
  1191.     {$IFC NOT GENERATINGCFM}
  1192.     INLINE $707E, $AAAA;
  1193.     {$ENDC}
  1194. FUNCTION GetMediaSampleReference(theMedia: Media; VAR dataOffset: LONGINT; VAR size: LONGINT; time: TimeValue; VAR sampleTime: TimeValue; VAR durationPerSample: TimeValue; sampleDescriptionH: SampleDescriptionHandle; VAR sampleDescriptionIndex: LONGINT; maxNumberOfSamples: LONGINT; VAR numberOfSamples: LONGINT; VAR sampleFlags: INTEGER): OSErr;
  1195.     {$IFC NOT GENERATINGCFM}
  1196.     INLINE $707F, $AAAA;
  1197.     {$ENDC}
  1198. FUNCTION GetMediaSampleReferences(theMedia: Media; time: TimeValue; VAR sampleTime: TimeValue; sampleDescriptionH: SampleDescriptionHandle; VAR sampleDescriptionIndex: LONGINT; maxNumberOfEntries: LONGINT; VAR actualNumberofEntries: LONGINT; sampleRefs: SampleReferencePtr): OSErr;
  1199.     {$IFC NOT GENERATINGCFM}
  1200.     INLINE $303C, $235, $AAAA;
  1201.     {$ENDC}
  1202. FUNCTION SetMediaPreferredChunkSize(theMedia: Media; maxChunkSize: LONGINT): OSErr;
  1203.     {$IFC NOT GENERATINGCFM}
  1204.     INLINE $303C, $1F8, $AAAA;
  1205.     {$ENDC}
  1206. FUNCTION GetMediaPreferredChunkSize(theMedia: Media; VAR maxChunkSize: LONGINT): OSErr;
  1207.     {$IFC NOT GENERATINGCFM}
  1208.     INLINE $303C, $1F9, $AAAA;
  1209.     {$ENDC}
  1210. FUNCTION SetMediaShadowSync(theMedia: Media; frameDiffSampleNum: LONGINT; syncSampleNum: LONGINT): OSErr;
  1211.     {$IFC NOT GENERATINGCFM}
  1212.     INLINE $303C, $121, $AAAA;
  1213.     {$ENDC}
  1214. FUNCTION GetMediaShadowSync(theMedia: Media; frameDiffSampleNum: LONGINT; VAR syncSampleNum: LONGINT): OSErr;
  1215.     {$IFC NOT GENERATINGCFM}
  1216.     INLINE $303C, $122, $AAAA;
  1217.     {$ENDC}
  1218. {************************
  1219. * Editing Routines
  1220. *************************}
  1221. FUNCTION InsertMediaIntoTrack(theTrack: Track; trackStart: TimeValue; mediaTime: TimeValue; mediaDuration: TimeValue; mediaRate: Fixed): OSErr;
  1222.     {$IFC NOT GENERATINGCFM}
  1223.     INLINE $303C, $183, $AAAA;
  1224.     {$ENDC}
  1225. FUNCTION InsertTrackSegment(srcTrack: Track; dstTrack: Track; srcIn: TimeValue; srcDuration: TimeValue; dstIn: TimeValue): OSErr;
  1226.     {$IFC NOT GENERATINGCFM}
  1227.     INLINE $303C, $85, $AAAA;
  1228.     {$ENDC}
  1229. FUNCTION InsertMovieSegment(srcMovie: Movie; dstMovie: Movie; srcIn: TimeValue; srcDuration: TimeValue; dstIn: TimeValue): OSErr;
  1230.     {$IFC NOT GENERATINGCFM}
  1231.     INLINE $303C, $86, $AAAA;
  1232.     {$ENDC}
  1233. FUNCTION InsertEmptyTrackSegment(dstTrack: Track; dstIn: TimeValue; dstDuration: TimeValue): OSErr;
  1234.     {$IFC NOT GENERATINGCFM}
  1235.     INLINE $303C, $87, $AAAA;
  1236.     {$ENDC}
  1237. FUNCTION InsertEmptyMovieSegment(dstMovie: Movie; dstIn: TimeValue; dstDuration: TimeValue): OSErr;
  1238.     {$IFC NOT GENERATINGCFM}
  1239.     INLINE $303C, $88, $AAAA;
  1240.     {$ENDC}
  1241. FUNCTION DeleteTrackSegment(theTrack: Track; startTime: TimeValue; duration: TimeValue): OSErr;
  1242.     {$IFC NOT GENERATINGCFM}
  1243.     INLINE $303C, $89, $AAAA;
  1244.     {$ENDC}
  1245. FUNCTION DeleteMovieSegment(theMovie: Movie; startTime: TimeValue; duration: TimeValue): OSErr;
  1246.     {$IFC NOT GENERATINGCFM}
  1247.     INLINE $303C, $8A, $AAAA;
  1248.     {$ENDC}
  1249. FUNCTION ScaleTrackSegment(theTrack: Track; startTime: TimeValue; oldDuration: TimeValue; newDuration: TimeValue): OSErr;
  1250.     {$IFC NOT GENERATINGCFM}
  1251.     INLINE $303C, $8B, $AAAA;
  1252.     {$ENDC}
  1253. FUNCTION ScaleMovieSegment(theMovie: Movie; startTime: TimeValue; oldDuration: TimeValue; newDuration: TimeValue): OSErr;
  1254.     {$IFC NOT GENERATINGCFM}
  1255.     INLINE $303C, $8C, $AAAA;
  1256.     {$ENDC}
  1257. {************************
  1258. * Hi-level Editing Routines
  1259. *************************}
  1260. FUNCTION CutMovieSelection(theMovie: Movie): Movie;
  1261.     {$IFC NOT GENERATINGCFM}
  1262.     INLINE $303C, $8D, $AAAA;
  1263.     {$ENDC}
  1264. FUNCTION CopyMovieSelection(theMovie: Movie): Movie;
  1265.     {$IFC NOT GENERATINGCFM}
  1266.     INLINE $303C, $8E, $AAAA;
  1267.     {$ENDC}
  1268. PROCEDURE PasteMovieSelection(theMovie: Movie; src: Movie);
  1269.     {$IFC NOT GENERATINGCFM}
  1270.     INLINE $303C, $8F, $AAAA;
  1271.     {$ENDC}
  1272. PROCEDURE AddMovieSelection(theMovie: Movie; src: Movie);
  1273.     {$IFC NOT GENERATINGCFM}
  1274.     INLINE $303C, $152, $AAAA;
  1275.     {$ENDC}
  1276. PROCEDURE ClearMovieSelection(theMovie: Movie);
  1277.     {$IFC NOT GENERATINGCFM}
  1278.     INLINE $303C, $E1, $AAAA;
  1279.     {$ENDC}
  1280. FUNCTION PasteHandleIntoMovie(h: Handle; handleType: OSType; theMovie: Movie; flags: LONGINT; userComp: ComponentInstance): OSErr;
  1281.     {$IFC NOT GENERATINGCFM}
  1282.     INLINE $303C, $CB, $AAAA;
  1283.     {$ENDC}
  1284. FUNCTION PutMovieIntoTypedHandle(theMovie: Movie; targetTrack: Track; handleType: OSType; publicMovie: Handle; start: TimeValue; dur: TimeValue; flags: LONGINT; userComp: ComponentInstance): OSErr;
  1285.     {$IFC NOT GENERATINGCFM}
  1286.     INLINE $303C, $1CD, $AAAA;
  1287.     {$ENDC}
  1288. FUNCTION IsScrapMovie(targetTrack: Track): Component;
  1289.     {$IFC NOT GENERATINGCFM}
  1290.     INLINE $303C, $CC, $AAAA;
  1291.     {$ENDC}
  1292. {************************
  1293. * Middle-level Editing Routines
  1294. *************************}
  1295. FUNCTION CopyTrackSettings(srcTrack: Track; dstTrack: Track): OSErr;
  1296.     {$IFC NOT GENERATINGCFM}
  1297.     INLINE $303C, $153, $AAAA;
  1298.     {$ENDC}
  1299. FUNCTION CopyMovieSettings(srcMovie: Movie; dstMovie: Movie): OSErr;
  1300.     {$IFC NOT GENERATINGCFM}
  1301.     INLINE $303C, $154, $AAAA;
  1302.     {$ENDC}
  1303. FUNCTION AddEmptyTrackToMovie(srcTrack: Track; dstMovie: Movie; dataRef: Handle; dataRefType: OSType; VAR dstTrack: Track): OSErr;
  1304.     {$IFC NOT GENERATINGCFM}
  1305.     INLINE $7074, $AAAA;
  1306.     {$ENDC}
  1307. {************************
  1308. * movie & track edit state routines
  1309. *************************}
  1310. FUNCTION NewMovieEditState(theMovie: Movie): MovieEditState;
  1311.     {$IFC NOT GENERATINGCFM}
  1312.     INLINE $303C, $104, $AAAA;
  1313.     {$ENDC}
  1314. FUNCTION UseMovieEditState(theMovie: Movie; toState: MovieEditState): OSErr;
  1315.     {$IFC NOT GENERATINGCFM}
  1316.     INLINE $303C, $105, $AAAA;
  1317.     {$ENDC}
  1318. FUNCTION DisposeMovieEditState(state: MovieEditState): OSErr;
  1319.     {$IFC NOT GENERATINGCFM}
  1320.     INLINE $303C, $106, $AAAA;
  1321.     {$ENDC}
  1322. FUNCTION NewTrackEditState(theTrack: Track): TrackEditState;
  1323.     {$IFC NOT GENERATINGCFM}
  1324.     INLINE $303C, $107, $AAAA;
  1325.     {$ENDC}
  1326. FUNCTION UseTrackEditState(theTrack: Track; state: TrackEditState): OSErr;
  1327.     {$IFC NOT GENERATINGCFM}
  1328.     INLINE $303C, $108, $AAAA;
  1329.     {$ENDC}
  1330. FUNCTION DisposeTrackEditState(state: TrackEditState): OSErr;
  1331.     {$IFC NOT GENERATINGCFM}
  1332.     INLINE $303C, $109, $AAAA;
  1333.     {$ENDC}
  1334. {************************
  1335. * track reference routines
  1336. *************************}
  1337. FUNCTION AddTrackReference(theTrack: Track; refTrack: Track; refType: OSType; VAR addedIndex: LONGINT): OSErr;
  1338.     {$IFC NOT GENERATINGCFM}
  1339.     INLINE $303C, $1F0, $AAAA;
  1340.     {$ENDC}
  1341. FUNCTION DeleteTrackReference(theTrack: Track; refType: OSType; index: LONGINT): OSErr;
  1342.     {$IFC NOT GENERATINGCFM}
  1343.     INLINE $303C, $1F1, $AAAA;
  1344.     {$ENDC}
  1345. FUNCTION SetTrackReference(theTrack: Track; refTrack: Track; refType: OSType; index: LONGINT): OSErr;
  1346.     {$IFC NOT GENERATINGCFM}
  1347.     INLINE $303C, $1F2, $AAAA;
  1348.     {$ENDC}
  1349. FUNCTION GetTrackReference(theTrack: Track; refType: OSType; index: LONGINT): Track;
  1350.     {$IFC NOT GENERATINGCFM}
  1351.     INLINE $303C, $1F3, $AAAA;
  1352.     {$ENDC}
  1353. FUNCTION GetNextTrackReferenceType(theTrack: Track; refType: OSType): OSType;
  1354.     {$IFC NOT GENERATINGCFM}
  1355.     INLINE $303C, $1F4, $AAAA;
  1356.     {$ENDC}
  1357. FUNCTION GetTrackReferenceCount(theTrack: Track; refType: OSType): LONGINT;
  1358.     {$IFC NOT GENERATINGCFM}
  1359.     INLINE $303C, $1F5, $AAAA;
  1360.     {$ENDC}
  1361. {************************
  1362. * modifier track types
  1363. *************************}
  1364. {$SETC kTrackModifierReference := 'ssrc'}
  1365. {$SETC kTrackModifierInput := 'in'}
  1366. {$SETC kTrackModifierType := 'ty'}
  1367. {$SETC kTrackModifierTypeMatrix := 1}
  1368. {$SETC kTrackModifierTypeClip := 2}
  1369. {$SETC kTrackModifierTypeGraphicsMode := 5}
  1370. {$SETC kTrackModifierTypeVolume := 3}
  1371. {$SETC kTrackModifierTypeBalance := 4}
  1372. {$SETC kTrackModifierTypeSpriteImage := 'vide'}
  1373.  
  1374. TYPE
  1375.     ModifierTrackGraphicsModeRecord = RECORD
  1376.         graphicsMode:            LONGINT;
  1377.         opColor:                RGBColor;
  1378.     END;
  1379.  
  1380. {************************
  1381. * high level file conversion routines
  1382. *************************}
  1383.  
  1384. FUNCTION ConvertFileToMovieFile({CONST}VAR inputFile: FSSpec; {CONST}VAR outputFile: FSSpec; creator: OSType; scriptTag: ScriptCode; VAR resID: INTEGER; flags: LONGINT; userComp: ComponentInstance; proc: MovieProgressUPP; refCon: LONGINT): OSErr;
  1385.     {$IFC NOT GENERATINGCFM}
  1386.     INLINE $303C, $1CB, $AAAA;
  1387.     {$ENDC}
  1388. FUNCTION ConvertMovieToFile(theMovie: Movie; onlyTrack: Track; VAR outputFile: FSSpec; fileType: OSType; creator: OSType; scriptTag: ScriptCode; VAR resID: INTEGER; flags: LONGINT; userComp: ComponentInstance): OSErr;
  1389.     {$IFC NOT GENERATINGCFM}
  1390.     INLINE $303C, $1CC, $AAAA;
  1391.     {$ENDC}
  1392. {************************
  1393. * Movie Timebase Conversion Routines
  1394. *************************}
  1395. FUNCTION TrackTimeToMediaTime(value: TimeValue; theTrack: Track): TimeValue;
  1396.     {$IFC NOT GENERATINGCFM}
  1397.     INLINE $303C, $96, $AAAA;
  1398.     {$ENDC}
  1399. FUNCTION GetTrackEditRate(theTrack: Track; atTime: TimeValue): Fixed;
  1400.     {$IFC NOT GENERATINGCFM}
  1401.     INLINE $303C, $123, $AAAA;
  1402.     {$ENDC}
  1403. {************************
  1404. * Miscellaneous Routines
  1405. *************************}
  1406. FUNCTION GetMovieDataSize(theMovie: Movie; startTime: TimeValue; duration: TimeValue): LONGINT;
  1407.     {$IFC NOT GENERATINGCFM}
  1408.     INLINE $303C, $98, $AAAA;
  1409.     {$ENDC}
  1410. FUNCTION GetTrackDataSize(theTrack: Track; startTime: TimeValue; duration: TimeValue): LONGINT;
  1411.     {$IFC NOT GENERATINGCFM}
  1412.     INLINE $303C, $149, $AAAA;
  1413.     {$ENDC}
  1414. FUNCTION GetMediaDataSize(theMedia: Media; startTime: TimeValue; duration: TimeValue): LONGINT;
  1415.     {$IFC NOT GENERATINGCFM}
  1416.     INLINE $303C, $99, $AAAA;
  1417.     {$ENDC}
  1418. FUNCTION PtInMovie(theMovie: Movie; pt: Point): BOOLEAN;
  1419.     {$IFC NOT GENERATINGCFM}
  1420.     INLINE $303C, $9A, $AAAA;
  1421.     {$ENDC}
  1422. FUNCTION PtInTrack(theTrack: Track; pt: Point): BOOLEAN;
  1423.     {$IFC NOT GENERATINGCFM}
  1424.     INLINE $303C, $9B, $AAAA;
  1425.     {$ENDC}
  1426. {************************
  1427. * Group Selection Routines
  1428. *************************}
  1429. PROCEDURE SetMovieLanguage(theMovie: Movie; language: LONGINT);
  1430.     {$IFC NOT GENERATINGCFM}
  1431.     INLINE $303C, $9C, $AAAA;
  1432.     {$ENDC}
  1433. {************************
  1434. * User Data
  1435. *************************}
  1436. FUNCTION GetUserData(theUserData: UserData; data: Handle; udType: OSType; index: LONGINT): OSErr;
  1437.     {$IFC NOT GENERATINGCFM}
  1438.     INLINE $303C, $9E, $AAAA;
  1439.     {$ENDC}
  1440. FUNCTION AddUserData(theUserData: UserData; data: Handle; udType: OSType): OSErr;
  1441.     {$IFC NOT GENERATINGCFM}
  1442.     INLINE $303C, $9F, $AAAA;
  1443.     {$ENDC}
  1444. FUNCTION RemoveUserData(theUserData: UserData; udType: OSType; index: LONGINT): OSErr;
  1445.     {$IFC NOT GENERATINGCFM}
  1446.     INLINE $303C, $A0, $AAAA;
  1447.     {$ENDC}
  1448. FUNCTION CountUserDataType(theUserData: UserData; udType: OSType): INTEGER;
  1449.     {$IFC NOT GENERATINGCFM}
  1450.     INLINE $303C, $14B, $AAAA;
  1451.     {$ENDC}
  1452. FUNCTION GetNextUserDataType(theUserData: UserData; udType: OSType): LONGINT;
  1453.     {$IFC NOT GENERATINGCFM}
  1454.     INLINE $303C, $1A5, $AAAA;
  1455.     {$ENDC}
  1456. FUNCTION GetUserDataItem(theUserData: UserData; data: UNIV Ptr; size: LONGINT; udType: OSType; index: LONGINT): OSErr;
  1457.     {$IFC NOT GENERATINGCFM}
  1458.     INLINE $303C, $126, $AAAA;
  1459.     {$ENDC}
  1460. FUNCTION SetUserDataItem(theUserData: UserData; data: UNIV Ptr; size: LONGINT; udType: OSType; index: LONGINT): OSErr;
  1461.     {$IFC NOT GENERATINGCFM}
  1462.     INLINE $303C, $12E, $AAAA;
  1463.     {$ENDC}
  1464. FUNCTION AddUserDataText(theUserData: UserData; data: Handle; udType: OSType; index: LONGINT; itlRegionTag: INTEGER): OSErr;
  1465.     {$IFC NOT GENERATINGCFM}
  1466.     INLINE $303C, $14C, $AAAA;
  1467.     {$ENDC}
  1468. FUNCTION GetUserDataText(theUserData: UserData; data: Handle; udType: OSType; index: LONGINT; itlRegionTag: INTEGER): OSErr;
  1469.     {$IFC NOT GENERATINGCFM}
  1470.     INLINE $303C, $14D, $AAAA;
  1471.     {$ENDC}
  1472. FUNCTION RemoveUserDataText(theUserData: UserData; udType: OSType; index: LONGINT; itlRegionTag: INTEGER): OSErr;
  1473.     {$IFC NOT GENERATINGCFM}
  1474.     INLINE $303C, $14E, $AAAA;
  1475.     {$ENDC}
  1476. FUNCTION NewUserData(VAR theUserData: UserData): OSErr;
  1477.     {$IFC NOT GENERATINGCFM}
  1478.     INLINE $303C, $12F, $AAAA;
  1479.     {$ENDC}
  1480. FUNCTION DisposeUserData(theUserData: UserData): OSErr;
  1481.     {$IFC NOT GENERATINGCFM}
  1482.     INLINE $303C, $130, $AAAA;
  1483.     {$ENDC}
  1484. FUNCTION NewUserDataFromHandle(h: Handle; VAR theUserData: UserData): OSErr;
  1485.     {$IFC NOT GENERATINGCFM}
  1486.     INLINE $303C, $131, $AAAA;
  1487.     {$ENDC}
  1488. FUNCTION PutUserDataIntoHandle(theUserData: UserData; h: Handle): OSErr;
  1489.     {$IFC NOT GENERATINGCFM}
  1490.     INLINE $303C, $132, $AAAA;
  1491.     {$ENDC}
  1492. PROCEDURE GetMediaNextInterestingTime(theMedia: Media; interestingTimeFlags: INTEGER; time: TimeValue; rate: Fixed; VAR interestingTime: TimeValue; VAR interestingDuration: TimeValue);
  1493.     {$IFC NOT GENERATINGCFM}
  1494.     INLINE $303C, $16D, $AAAA;
  1495.     {$ENDC}
  1496. PROCEDURE GetTrackNextInterestingTime(theTrack: Track; interestingTimeFlags: INTEGER; time: TimeValue; rate: Fixed; VAR interestingTime: TimeValue; VAR interestingDuration: TimeValue);
  1497.     {$IFC NOT GENERATINGCFM}
  1498.     INLINE $303C, $E2, $AAAA;
  1499.     {$ENDC}
  1500. PROCEDURE GetMovieNextInterestingTime(theMovie: Movie; interestingTimeFlags: INTEGER; numMediaTypes: INTEGER; {CONST}VAR whichMediaTypes: OSType; time: TimeValue; rate: Fixed; VAR interestingTime: TimeValue; VAR interestingDuration: TimeValue);
  1501.     {$IFC NOT GENERATINGCFM}
  1502.     INLINE $303C, $10E, $AAAA;
  1503.     {$ENDC}
  1504. FUNCTION CreateMovieFile({CONST}VAR fileSpec: FSSpec; creator: OSType; scriptTag: ScriptCode; createMovieFileFlags: LONGINT; VAR resRefNum: INTEGER; VAR newmovie: Movie): OSErr;
  1505.     {$IFC NOT GENERATINGCFM}
  1506.     INLINE $303C, $191, $AAAA;
  1507.     {$ENDC}
  1508. FUNCTION OpenMovieFile({CONST}VAR fileSpec: FSSpec; VAR resRefNum: INTEGER; permission: ByteParameter): OSErr;
  1509.     {$IFC NOT GENERATINGCFM}
  1510.     INLINE $303C, $192, $AAAA;
  1511.     {$ENDC}
  1512. FUNCTION CloseMovieFile(resRefNum: INTEGER): OSErr;
  1513.     {$IFC NOT GENERATINGCFM}
  1514.     INLINE $303C, $D5, $AAAA;
  1515.     {$ENDC}
  1516. FUNCTION DeleteMovieFile({CONST}VAR fileSpec: FSSpec): OSErr;
  1517.     {$IFC NOT GENERATINGCFM}
  1518.     INLINE $303C, $175, $AAAA;
  1519.     {$ENDC}
  1520. FUNCTION NewMovieFromFile(VAR theMovie: Movie; resRefNum: INTEGER; VAR resId: INTEGER; resName: StringPtr; newMovieFlags: INTEGER; VAR dataRefWasChanged: BOOLEAN): OSErr;
  1521.     {$IFC NOT GENERATINGCFM}
  1522.     INLINE $303C, $F0, $AAAA;
  1523.     {$ENDC}
  1524. FUNCTION NewMovieFromHandle(VAR theMovie: Movie; h: Handle; newMovieFlags: INTEGER; VAR dataRefWasChanged: BOOLEAN): OSErr;
  1525.     {$IFC NOT GENERATINGCFM}
  1526.     INLINE $303C, $F1, $AAAA;
  1527.     {$ENDC}
  1528. FUNCTION NewMovieFromDataFork(VAR theMovie: Movie; fRefNum: INTEGER; fileOffset: LONGINT; newMovieFlags: INTEGER; VAR dataRefWasChanged: BOOLEAN): OSErr;
  1529.     {$IFC NOT GENERATINGCFM}
  1530.     INLINE $303C, $1B3, $AAAA;
  1531.     {$ENDC}
  1532. FUNCTION NewMovieFromUserProc(VAR m: Movie; flags: INTEGER; VAR dataRefWasChanged: BOOLEAN; getProc: GetMovieUPP; refCon: UNIV Ptr; defaultDataRef: Handle; dataRefType: OSType): OSErr;
  1533.     {$IFC NOT GENERATINGCFM}
  1534.     INLINE $303C, $1EC, $AAAA;
  1535.     {$ENDC}
  1536. FUNCTION NewMovieFromDataRef(VAR m: Movie; flags: INTEGER; VAR id: INTEGER; dataRef: Handle; dataRefType: OSType): OSErr;
  1537.     {$IFC NOT GENERATINGCFM}
  1538.     INLINE $303C, $220, $AAAA;
  1539.     {$ENDC}
  1540. FUNCTION AddMovieResource(theMovie: Movie; resRefNum: INTEGER; VAR resId: INTEGER; resName: ConstStr255Param): OSErr;
  1541.     {$IFC NOT GENERATINGCFM}
  1542.     INLINE $303C, $D7, $AAAA;
  1543.     {$ENDC}
  1544. FUNCTION UpdateMovieResource(theMovie: Movie; resRefNum: INTEGER; resId: INTEGER; resName: ConstStr255Param): OSErr;
  1545.     {$IFC NOT GENERATINGCFM}
  1546.     INLINE $303C, $D8, $AAAA;
  1547.     {$ENDC}
  1548. FUNCTION RemoveMovieResource(resRefNum: INTEGER; resId: INTEGER): OSErr;
  1549.     {$IFC NOT GENERATINGCFM}
  1550.     INLINE $303C, $176, $AAAA;
  1551.     {$ENDC}
  1552. FUNCTION HasMovieChanged(theMovie: Movie): BOOLEAN;
  1553.     {$IFC NOT GENERATINGCFM}
  1554.     INLINE $303C, $D9, $AAAA;
  1555.     {$ENDC}
  1556. PROCEDURE ClearMovieChanged(theMovie: Movie);
  1557.     {$IFC NOT GENERATINGCFM}
  1558.     INLINE $303C, $113, $AAAA;
  1559.     {$ENDC}
  1560. FUNCTION SetMovieDefaultDataRef(theMovie: Movie; dataRef: Handle; dataRefType: OSType): OSErr;
  1561.     {$IFC NOT GENERATINGCFM}
  1562.     INLINE $303C, $1C1, $AAAA;
  1563.     {$ENDC}
  1564. FUNCTION GetMovieDefaultDataRef(theMovie: Movie; VAR dataRef: Handle; VAR dataRefType: OSType): OSErr;
  1565.     {$IFC NOT GENERATINGCFM}
  1566.     INLINE $303C, $1D2, $AAAA;
  1567.     {$ENDC}
  1568. FUNCTION SetMovieColorTable(theMovie: Movie; ctab: CTabHandle): OSErr;
  1569.     {$IFC NOT GENERATINGCFM}
  1570.     INLINE $303C, $205, $AAAA;
  1571.     {$ENDC}
  1572. FUNCTION GetMovieColorTable(theMovie: Movie; VAR ctab: CTabHandle): OSErr;
  1573.     {$IFC NOT GENERATINGCFM}
  1574.     INLINE $303C, $206, $AAAA;
  1575.     {$ENDC}
  1576. PROCEDURE FlattenMovie(theMovie: Movie; movieFlattenFlags: LONGINT; {CONST}VAR theFile: FSSpec; creator: OSType; scriptTag: ScriptCode; createMovieFileFlags: LONGINT; VAR resId: INTEGER; resName: ConstStr255Param);
  1577.     {$IFC NOT GENERATINGCFM}
  1578.     INLINE $303C, $19B, $AAAA;
  1579.     {$ENDC}
  1580. FUNCTION FlattenMovieData(theMovie: Movie; movieFlattenFlags: LONGINT; {CONST}VAR theFile: FSSpec; creator: OSType; scriptTag: ScriptCode; createMovieFileFlags: LONGINT): Movie;
  1581.     {$IFC NOT GENERATINGCFM}
  1582.     INLINE $303C, $19C, $AAAA;
  1583.     {$ENDC}
  1584. PROCEDURE SetMovieProgressProc(theMovie: Movie; p: MovieProgressUPP; refcon: LONGINT);
  1585.     {$IFC NOT GENERATINGCFM}
  1586.     INLINE $303C, $19A, $AAAA;
  1587.     {$ENDC}
  1588. {************************
  1589. * Video Media routines
  1590. *************************}
  1591. FUNCTION GetVideoMediaGraphicsMode(mh: MediaHandler; VAR graphicsMode: LONGINT; VAR opColor: RGBColor): HandlerError;
  1592.     {$IFC NOT GENERATINGCFM}
  1593.     INLINE $2F3C, $8, $101, $7000, $A82A;
  1594.     {$ENDC}
  1595. FUNCTION SetVideoMediaGraphicsMode(mh: MediaHandler; graphicsMode: LONGINT; {CONST}VAR opColor: RGBColor): HandlerError;
  1596.     {$IFC NOT GENERATINGCFM}
  1597.     INLINE $2F3C, $8, $102, $7000, $A82A;
  1598.     {$ENDC}
  1599. { use these two routines at your own peril}
  1600. FUNCTION ResetVideoMediaStatistics(mh: MediaHandler): HandlerError;
  1601.     {$IFC NOT GENERATINGCFM}
  1602.     INLINE $2F3C, 0, $105, $7000, $A82A;
  1603.     {$ENDC}
  1604. FUNCTION GetVideoMediaStatistics(mh: MediaHandler): Fixed;
  1605.     {$IFC NOT GENERATINGCFM}
  1606.     INLINE $2F3C, 0, $106, $7000, $A82A;
  1607.     {$ENDC}
  1608. {************************
  1609. * Sound Media routines
  1610. *************************}
  1611. FUNCTION GetSoundMediaBalance(mh: MediaHandler; VAR balance: INTEGER): HandlerError;
  1612.     {$IFC NOT GENERATINGCFM}
  1613.     INLINE $2F3C, $4, $101, $7000, $A82A;
  1614.     {$ENDC}
  1615. FUNCTION SetSoundMediaBalance(mh: MediaHandler; balance: INTEGER): HandlerError;
  1616.     {$IFC NOT GENERATINGCFM}
  1617.     INLINE $2F3C, $2, $102, $7000, $A82A;
  1618.     {$ENDC}
  1619. {************************
  1620. * Sprite Media routines
  1621. *************************}
  1622. { flags for HitTestSpriteMedia }
  1623.  
  1624. CONST
  1625.     spriteHitTestBounds            = 1 * (2**(0));                    {    point must only be within sprite's bounding box}
  1626.     spriteHitTestImage            = 1 * (2**(1));                    {  point must be within the shape of the sprite's image}
  1627.  
  1628. { atom types for sprite media }
  1629. {$SETC kSpriteAtomType := 'sprt'}
  1630. {$SETC kSpriteImagesContainerAtomType := 'imct'}
  1631. {$SETC kSpriteImageAtomType := 'imag'}
  1632. {$SETC kSpriteImageDataAtomType := 'imda'}
  1633. {$SETC kSpriteSharedDataAtomType := 'dflt'}
  1634. {$SETC kSpriteNameAtomType := 'name'}
  1635.  
  1636. FUNCTION SetSpriteMediaSpriteProperty(mh: MediaHandler; spriteIndex: INTEGER; propertyType: LONGINT; propertyValue: UNIV Ptr): ComponentResult;
  1637.     {$IFC NOT GENERATINGCFM}
  1638.     INLINE $2F3C, $A, $101, $7000, $A82A;
  1639.     {$ENDC}
  1640. FUNCTION GetSpriteMediaSpriteProperty(mh: MediaHandler; spriteIndex: INTEGER; propertyType: LONGINT; propertyValue: UNIV Ptr): ComponentResult;
  1641.     {$IFC NOT GENERATINGCFM}
  1642.     INLINE $2F3C, $A, $102, $7000, $A82A;
  1643.     {$ENDC}
  1644. FUNCTION HitTestSpriteMedia(mh: MediaHandler; flags: LONGINT; loc: Point; VAR spriteHitIndex: INTEGER): ComponentResult;
  1645.     {$IFC NOT GENERATINGCFM}
  1646.     INLINE $2F3C, $C, $103, $7000, $A82A;
  1647.     {$ENDC}
  1648. FUNCTION CountSpriteMediaSprites(mh: MediaHandler; VAR numSprites: INTEGER): ComponentResult;
  1649.     {$IFC NOT GENERATINGCFM}
  1650.     INLINE $2F3C, $4, $104, $7000, $A82A;
  1651.     {$ENDC}
  1652. FUNCTION CountSpriteMediaImages(mh: MediaHandler; VAR numImages: INTEGER): ComponentResult;
  1653.     {$IFC NOT GENERATINGCFM}
  1654.     INLINE $2F3C, $4, $105, $7000, $A82A;
  1655.     {$ENDC}
  1656. FUNCTION GetSpriteMediaIndImageDescription(mh: MediaHandler; imageIndex: INTEGER; imageDescription: ImageDescriptionHandle): ComponentResult;
  1657.     {$IFC NOT GENERATINGCFM}
  1658.     INLINE $2F3C, $6, $106, $7000, $A82A;
  1659.     {$ENDC}
  1660. FUNCTION GetDisplayedSampleNumber(mh: MediaHandler; VAR sampleNum: LONGINT): ComponentResult;
  1661.     {$IFC NOT GENERATINGCFM}
  1662.     INLINE $2F3C, $7, $107, $7000, $A82A;
  1663.     {$ENDC}
  1664. {************************
  1665. * Text Media routines
  1666. *************************}
  1667. { Return displayFlags for TextProc }
  1668.  
  1669. CONST
  1670.     txtProcDefaultDisplay        = 0;                            {    Use the media's default}
  1671.     txtProcDontDisplay            = 1;                            {    Don't display the text}
  1672.     txtProcDoDisplay            = 2;                            {    Do display the text}
  1673.  
  1674.  
  1675. FUNCTION SetTextProc(mh: MediaHandler; TextProc: TextMediaUPP; refcon: LONGINT): ComponentResult;
  1676.     {$IFC NOT GENERATINGCFM}
  1677.     INLINE $2F3C, $8, $101, $7000, $A82A;
  1678.     {$ENDC}
  1679. FUNCTION AddTextSample(mh: MediaHandler; text: Ptr; size: LONGINT; fontNumber: INTEGER; fontSize: INTEGER; textFace: Style; VAR textColor: RGBColor; VAR backColor: RGBColor; textJustification: INTEGER; VAR textBox: Rect; displayFlags: LONGINT; scrollDelay: TimeValue; hiliteStart: INTEGER; hiliteEnd: INTEGER; VAR rgbHiliteColor: RGBColor; duration: TimeValue; VAR sampleTime: TimeValue): ComponentResult;
  1680.     {$IFC NOT GENERATINGCFM}
  1681.     INLINE $2F3C, $34, $102, $7000, $A82A;
  1682.     {$ENDC}
  1683. FUNCTION AddTESample(mh: MediaHandler; hTE: TEHandle; VAR backColor: RGBColor; textJustification: INTEGER; VAR textBox: Rect; displayFlags: LONGINT; scrollDelay: TimeValue; hiliteStart: INTEGER; hiliteEnd: INTEGER; VAR rgbHiliteColor: RGBColor; duration: TimeValue; VAR sampleTime: TimeValue): ComponentResult;
  1684.     {$IFC NOT GENERATINGCFM}
  1685.     INLINE $2F3C, $26, $103, $7000, $A82A;
  1686.     {$ENDC}
  1687. FUNCTION AddHiliteSample(mh: MediaHandler; hiliteStart: INTEGER; hiliteEnd: INTEGER; VAR rgbHiliteColor: RGBColor; duration: TimeValue; VAR sampleTime: TimeValue): ComponentResult;
  1688.     {$IFC NOT GENERATINGCFM}
  1689.     INLINE $2F3C, $10, $104, $7000, $A82A;
  1690.     {$ENDC}
  1691.  
  1692. CONST
  1693.     findTextEdgeOK                = 1 * (2**(0));                    { Okay to find text at specified sample time}
  1694.     findTextCaseSensitive        = 1 * (2**(1));                    { Case sensitive search}
  1695.     findTextReverseSearch        = 1 * (2**(2));                    { Search from sampleTime backwards}
  1696.     findTextWrapAround            = 1 * (2**(3));                    { Wrap search when beginning or end of movie is hit}
  1697.     findTextUseOffset            = 1 * (2**(4));                    { Begin search at the given character offset into sample rather than edge}
  1698.  
  1699.  
  1700. FUNCTION FindNextText(mh: MediaHandler; text: Ptr; size: LONGINT; findFlags: INTEGER; startTime: TimeValue; VAR foundTime: TimeValue; VAR foundDuration: TimeValue; VAR offset: LONGINT): ComponentResult;
  1701.     {$IFC NOT GENERATINGCFM}
  1702.     INLINE $2F3C, $1A, $105, $7000, $A82A;
  1703.     {$ENDC}
  1704. FUNCTION HiliteTextSample(mh: MediaHandler; sampleTime: TimeValue; hiliteStart: INTEGER; hiliteEnd: INTEGER; VAR rgbHiliteColor: RGBColor): ComponentResult;
  1705.     {$IFC NOT GENERATINGCFM}
  1706.     INLINE $2F3C, $C, $106, $7000, $A82A;
  1707.     {$ENDC}
  1708.  
  1709. CONST
  1710.     dropShadowOffsetType        = 'drpo';
  1711.     dropShadowTranslucencyType    = 'drpt';
  1712.  
  1713.  
  1714. FUNCTION SetTextSampleData(mh: MediaHandler; data: UNIV Ptr; dataType: OSType): ComponentResult;
  1715.     {$IFC NOT GENERATINGCFM}
  1716.     INLINE $2F3C, $8, $107, $7000, $A82A;
  1717.     {$ENDC}
  1718. FUNCTION MovieSearchText(theMovie: Movie; text: Ptr; size: LONGINT; searchFlags: LONGINT; VAR searchTrack: Track; VAR searchTime: TimeValue; VAR searchOffset: LONGINT): OSErr;
  1719.     {$IFC NOT GENERATINGCFM}
  1720.     INLINE $303C, $207, $AAAA;
  1721.     {$ENDC}
  1722. PROCEDURE GetPosterBox(theMovie: Movie; VAR boxRect: Rect);
  1723.     {$IFC NOT GENERATINGCFM}
  1724.     INLINE $303C, $16F, $AAAA;
  1725.     {$ENDC}
  1726. PROCEDURE SetPosterBox(theMovie: Movie; {CONST}VAR boxRect: Rect);
  1727.     {$IFC NOT GENERATINGCFM}
  1728.     INLINE $303C, $170, $AAAA;
  1729.     {$ENDC}
  1730. FUNCTION GetMovieSegmentDisplayBoundsRgn(theMovie: Movie; time: TimeValue; duration: TimeValue): RgnHandle;
  1731.     {$IFC NOT GENERATINGCFM}
  1732.     INLINE $303C, $16C, $AAAA;
  1733.     {$ENDC}
  1734. FUNCTION GetTrackSegmentDisplayBoundsRgn(theTrack: Track; time: TimeValue; duration: TimeValue): RgnHandle;
  1735.     {$IFC NOT GENERATINGCFM}
  1736.     INLINE $303C, $16B, $AAAA;
  1737.     {$ENDC}
  1738. PROCEDURE SetMovieCoverProcs(theMovie: Movie; uncoverProc: MovieRgnCoverUPP; coverProc: MovieRgnCoverUPP; refcon: LONGINT);
  1739.     {$IFC NOT GENERATINGCFM}
  1740.     INLINE $303C, $179, $AAAA;
  1741.     {$ENDC}
  1742. FUNCTION GetMovieCoverProcs(theMovie: Movie; VAR uncoverProc: MovieRgnCoverUPP; VAR coverProc: MovieRgnCoverUPP; VAR refcon: LONGINT): OSErr;
  1743.     {$IFC NOT GENERATINGCFM}
  1744.     INLINE $303C, $1DD, $AAAA;
  1745.     {$ENDC}
  1746. FUNCTION GetTrackStatus(theTrack: Track): ComponentResult;
  1747.     {$IFC NOT GENERATINGCFM}
  1748.     INLINE $303C, $172, $AAAA;
  1749.     {$ENDC}
  1750. FUNCTION GetMovieStatus(theMovie: Movie; VAR firstProblemTrack: Track): ComponentResult;
  1751.     {$IFC NOT GENERATINGCFM}
  1752.     INLINE $303C, $173, $AAAA;
  1753.     {$ENDC}
  1754. {***
  1755.     Movie Controller support routines
  1756. ***}
  1757. FUNCTION NewMovieController(theMovie: Movie; {CONST}VAR movieRect: Rect; someFlags: LONGINT): ComponentInstance;
  1758.     {$IFC NOT GENERATINGCFM}
  1759.     INLINE $303C, $18A, $AAAA;
  1760.     {$ENDC}
  1761. PROCEDURE DisposeMovieController(mc: ComponentInstance);
  1762.     {$IFC NOT GENERATINGCFM}
  1763.     INLINE $303C, $18B, $AAAA;
  1764.     {$ENDC}
  1765. PROCEDURE ShowMovieInformation(theMovie: Movie; filterProc: ModalFilterUPP; refCon: LONGINT);
  1766.     {$IFC NOT GENERATINGCFM}
  1767.     INLINE $303C, $209, $AAAA;
  1768.     {$ENDC}
  1769. {****
  1770.     Scrap routines
  1771. ****}
  1772. FUNCTION PutMovieOnScrap(theMovie: Movie; movieScrapFlags: LONGINT): OSErr;
  1773.     {$IFC NOT GENERATINGCFM}
  1774.     INLINE $303C, $18C, $AAAA;
  1775.     {$ENDC}
  1776. FUNCTION NewMovieFromScrap(newMovieFlags: LONGINT): Movie;
  1777.     {$IFC NOT GENERATINGCFM}
  1778.     INLINE $303C, $18D, $AAAA;
  1779.     {$ENDC}
  1780. {****
  1781.     DataRef routines
  1782. ****}
  1783. FUNCTION GetMediaDataRef(theMedia: Media; index: INTEGER; VAR dataRef: Handle; VAR dataRefType: OSType; VAR dataRefAttributes: LONGINT): OSErr;
  1784.     {$IFC NOT GENERATINGCFM}
  1785.     INLINE $303C, $197, $AAAA;
  1786.     {$ENDC}
  1787. FUNCTION SetMediaDataRef(theMedia: Media; index: INTEGER; dataRef: Handle; dataRefType: OSType): OSErr;
  1788.     {$IFC NOT GENERATINGCFM}
  1789.     INLINE $303C, $1C9, $AAAA;
  1790.     {$ENDC}
  1791. FUNCTION SetMediaDataRefAttributes(theMedia: Media; index: INTEGER; dataRefAttributes: LONGINT): OSErr;
  1792.     {$IFC NOT GENERATINGCFM}
  1793.     INLINE $303C, $1CA, $AAAA;
  1794.     {$ENDC}
  1795. FUNCTION AddMediaDataRef(theMedia: Media; VAR index: INTEGER; dataRef: Handle; dataRefType: OSType): OSErr;
  1796.     {$IFC NOT GENERATINGCFM}
  1797.     INLINE $303C, $198, $AAAA;
  1798.     {$ENDC}
  1799. FUNCTION GetMediaDataRefCount(theMedia: Media; VAR count: INTEGER): OSErr;
  1800.     {$IFC NOT GENERATINGCFM}
  1801.     INLINE $303C, $199, $AAAA;
  1802.     {$ENDC}
  1803. {****
  1804.     Playback hint routines
  1805. ****}
  1806. PROCEDURE SetMoviePlayHints(theMovie: Movie; flags: LONGINT; flagsMask: LONGINT);
  1807.     {$IFC NOT GENERATINGCFM}
  1808.     INLINE $303C, $1A1, $AAAA;
  1809.     {$ENDC}
  1810. PROCEDURE SetMediaPlayHints(theMedia: Media; flags: LONGINT; flagsMask: LONGINT);
  1811.     {$IFC NOT GENERATINGCFM}
  1812.     INLINE $303C, $1A2, $AAAA;
  1813.     {$ENDC}
  1814. {****
  1815.     Load time track hints
  1816. ****}
  1817.  
  1818. CONST
  1819.     preloadAlways                = 1 * (2**(0));
  1820.     preloadOnlyIfEnabled        = 1 * (2**(1));
  1821.  
  1822.  
  1823. PROCEDURE SetTrackLoadSettings(theTrack: Track; preloadTime: TimeValue; preloadDuration: TimeValue; preloadFlags: LONGINT; defaultHints: LONGINT);
  1824.     {$IFC NOT GENERATINGCFM}
  1825.     INLINE $303C, $1E3, $AAAA;
  1826.     {$ENDC}
  1827. PROCEDURE GetTrackLoadSettings(theTrack: Track; VAR preloadTime: TimeValue; VAR preloadDuration: TimeValue; VAR preloadFlags: LONGINT; VAR defaultHints: LONGINT);
  1828.     {$IFC NOT GENERATINGCFM}
  1829.     INLINE $303C, $1E4, $AAAA;
  1830.     {$ENDC}
  1831. {****
  1832.     Big screen TV
  1833. ****}
  1834.  
  1835. CONST
  1836.     fullScreenHideCursor        = 1 * (2**(0));
  1837.     fullScreenAllowEvents        = 1 * (2**(1));
  1838.     fullScreenDontChangeMenuBar    = 1 * (2**(2));
  1839.     fullScreenPreflightSize        = 1 * (2**(3));
  1840.  
  1841.  
  1842. FUNCTION BeginFullScreen(VAR restoreState: Ptr; whichGD: GDHandle; VAR desiredWidth: INTEGER; VAR desiredHeight: INTEGER; VAR newWindow: WindowPtr; VAR eraseColor: RGBColor; flags: LONGINT): OSErr;
  1843.     {$IFC NOT GENERATINGCFM}
  1844.     INLINE $303C, $233, $AAAA;
  1845.     {$ENDC}
  1846. FUNCTION EndFullScreen(fullState: Ptr; flags: LONGINT): OSErr;
  1847.     {$IFC NOT GENERATINGCFM}
  1848.     INLINE $303C, $234, $AAAA;
  1849.     {$ENDC}
  1850. {****
  1851.     Sprite Toolbox
  1852. ****}
  1853. {$SETC kBackgroundSpriteLayerNum := (32767)}
  1854.  
  1855. CONST
  1856.     kSpritePropertyMatrix        = 1;
  1857.     kSpritePropertyImageDescription = 2;
  1858.     kSpritePropertyImageDataPtr    = 3;
  1859.     kSpritePropertyVisible        = 4;
  1860.     kSpritePropertyLayer        = 5;
  1861.     kSpritePropertyImageIndex    = 100;
  1862.     kSpriteTrackPropertyBackgroundColor = 101;
  1863.     kSpriteTrackPropertyOffscreenBitDepth = 102;
  1864.     kSpriteTrackPropertySampleFormat = 103;
  1865.  
  1866. { flagsIn for SpriteWorldIdle}
  1867.     kOnlyDrawToSpriteWorld        = 1 * (2**(0));
  1868.  
  1869. { flagsOut for SpriteWorldIdle}
  1870.     kSpriteWorldDidDraw            = 1 * (2**(0));
  1871.  
  1872. { flags for sprite track sample format}
  1873.     kKeyFrameAndSingleOverride    = 1 * (2**(1));
  1874.     kKeyFrameAndAllOverrides    = 1 * (2**(2));
  1875.  
  1876.  
  1877. FUNCTION NewSpriteWorld(VAR newSpriteWorld: SpriteWorld; destination: GWorldPtr; spriteLayer: GWorldPtr; VAR backgroundColor: RGBColor; background: GWorldPtr): OSErr;
  1878.     {$IFC NOT GENERATINGCFM}
  1879.     INLINE $303C, $239, $AAAA;
  1880.     {$ENDC}
  1881. PROCEDURE DisposeSpriteWorld(theSpriteWorld: SpriteWorld);
  1882.     {$IFC NOT GENERATINGCFM}
  1883.     INLINE $303C, $23A, $AAAA;
  1884.     {$ENDC}
  1885. FUNCTION SetSpriteWorldClip(theSpriteWorld: SpriteWorld; clipRgn: RgnHandle): OSErr;
  1886.     {$IFC NOT GENERATINGCFM}
  1887.     INLINE $303C, $23B, $AAAA;
  1888.     {$ENDC}
  1889. FUNCTION SetSpriteWorldMatrix(theSpriteWorld: SpriteWorld; {CONST}VAR matrix: MatrixRecord): OSErr;
  1890.     {$IFC NOT GENERATINGCFM}
  1891.     INLINE $303C, $23C, $AAAA;
  1892.     {$ENDC}
  1893. FUNCTION SpriteWorldIdle(theSpriteWorld: SpriteWorld; flagsIn: LONGINT; VAR flagsOut: LONGINT): OSErr;
  1894.     {$IFC NOT GENERATINGCFM}
  1895.     INLINE $303C, $23D, $AAAA;
  1896.     {$ENDC}
  1897. FUNCTION InvalidateSpriteWorld(theSpriteWorld: SpriteWorld; VAR invalidArea: Rect): OSErr;
  1898.     {$IFC NOT GENERATINGCFM}
  1899.     INLINE $303C, $23E, $AAAA;
  1900.     {$ENDC}
  1901. FUNCTION SpriteWorldHitTest(theSpriteWorld: SpriteWorld; flags: LONGINT; loc: Point; VAR spriteHit: Sprite): OSErr;
  1902.     {$IFC NOT GENERATINGCFM}
  1903.     INLINE $303C, $246, $AAAA;
  1904.     {$ENDC}
  1905. FUNCTION SpriteHitTest(theSprite: Sprite; flags: LONGINT; loc: Point; VAR wasHit: BOOLEAN): OSErr;
  1906.     {$IFC NOT GENERATINGCFM}
  1907.     INLINE $303C, $247, $AAAA;
  1908.     {$ENDC}
  1909. PROCEDURE DisposeAllSprites(theSpriteWorld: SpriteWorld);
  1910.     {$IFC NOT GENERATINGCFM}
  1911.     INLINE $303C, $23F, $AAAA;
  1912.     {$ENDC}
  1913. FUNCTION NewSprite(VAR newSprite: Sprite; itsSpriteWorld: SpriteWorld; idh: ImageDescriptionHandle; imageDataPtr: Ptr; VAR matrix: MatrixRecord; visible: BOOLEAN; layer: INTEGER): OSErr;
  1914.     {$IFC NOT GENERATINGCFM}
  1915.     INLINE $303C, $240, $AAAA;
  1916.     {$ENDC}
  1917. PROCEDURE DisposeSprite(theSprite: Sprite);
  1918.     {$IFC NOT GENERATINGCFM}
  1919.     INLINE $303C, $241, $AAAA;
  1920.     {$ENDC}
  1921. PROCEDURE InvalidateSprite(theSprite: Sprite);
  1922.     {$IFC NOT GENERATINGCFM}
  1923.     INLINE $303C, $242, $AAAA;
  1924.     {$ENDC}
  1925. FUNCTION SetSpriteProperty(theSprite: Sprite; propertyType: LONGINT; propertyValue: UNIV Ptr): OSErr;
  1926.     {$IFC NOT GENERATINGCFM}
  1927.     INLINE $303C, $243, $AAAA;
  1928.     {$ENDC}
  1929. FUNCTION GetSpriteProperty(theSprite: Sprite; propertyType: LONGINT; propertyValue: UNIV Ptr): OSErr;
  1930.     {$IFC NOT GENERATINGCFM}
  1931.     INLINE $303C, $244, $AAAA;
  1932.     {$ENDC}
  1933. {****
  1934.     QT Atom Data Support
  1935. ****}
  1936.  
  1937. CONST
  1938.     kParentAtomIsContainer        = 0;
  1939.  
  1940. { create and dispose QTAtomContainer objects}
  1941.  
  1942. FUNCTION QTNewAtomContainer(VAR atomData: QTAtomContainer): OSErr;
  1943.     {$IFC NOT GENERATINGCFM}
  1944.     INLINE $303C, $20C, $AAAA;
  1945.     {$ENDC}
  1946. FUNCTION QTDisposeAtomContainer(atomData: QTAtomContainer): OSErr;
  1947.     {$IFC NOT GENERATINGCFM}
  1948.     INLINE $303C, $20D, $AAAA;
  1949.     {$ENDC}
  1950. { locating nested atoms within QTAtomContainer container}
  1951. FUNCTION QTGetNextChildType(container: QTAtomContainer; parentAtom: QTAtom; currentChildType: QTAtomType): QTAtomType;
  1952.     {$IFC NOT GENERATINGCFM}
  1953.     INLINE $303C, $20E, $AAAA;
  1954.     {$ENDC}
  1955. FUNCTION QTCountChildrenOfType(container: QTAtomContainer; parentAtom: QTAtom; childType: QTAtomType): INTEGER;
  1956.     {$IFC NOT GENERATINGCFM}
  1957.     INLINE $303C, $20F, $AAAA;
  1958.     {$ENDC}
  1959. FUNCTION QTFindChildByIndex(container: QTAtomContainer; parentAtom: QTAtom; atomType: QTAtomType; index: INTEGER; VAR id: QTAtomID): QTAtom;
  1960.     {$IFC NOT GENERATINGCFM}
  1961.     INLINE $303C, $210, $AAAA;
  1962.     {$ENDC}
  1963. FUNCTION QTFindChildByID(container: QTAtomContainer; parentAtom: QTAtom; atomType: QTAtomType; id: QTAtomID; VAR index: INTEGER): QTAtom;
  1964.     {$IFC NOT GENERATINGCFM}
  1965.     INLINE $303C, $21D, $AAAA;
  1966.     {$ENDC}
  1967. FUNCTION QTNextChildAnyType(container: QTAtomContainer; parentAtom: QTAtom; currentChild: QTAtom; VAR nextChild: QTAtom): OSErr;
  1968.     {$IFC NOT GENERATINGCFM}
  1969.     INLINE $303C, $200, $AAAA;
  1970.     {$ENDC}
  1971. { set a leaf atom's data}
  1972. FUNCTION QTSetAtomData(container: QTAtomContainer; atom: QTAtom; dataSize: LONGINT; atomData: UNIV Ptr): OSErr;
  1973.     {$IFC NOT GENERATINGCFM}
  1974.     INLINE $303C, $211, $AAAA;
  1975.     {$ENDC}
  1976. { extracting data}
  1977. FUNCTION QTCopyAtomDataToHandle(container: QTAtomContainer; atom: QTAtom; targetHandle: Handle): OSErr;
  1978.     {$IFC NOT GENERATINGCFM}
  1979.     INLINE $303C, $212, $AAAA;
  1980.     {$ENDC}
  1981. FUNCTION QTCopyAtomDataToPtr(container: QTAtomContainer; atom: QTAtom; sizeOrLessOK: BOOLEAN; size: LONGINT; targetPtr: UNIV Ptr; VAR actualSize: LONGINT): OSErr;
  1982.     {$IFC NOT GENERATINGCFM}
  1983.     INLINE $303C, $213, $AAAA;
  1984.     {$ENDC}
  1985. FUNCTION QTGetAtomTypeAndID(container: QTAtomContainer; atom: QTAtom; VAR type: QTAtomType; VAR id: QTAtomID): OSErr;
  1986.     {$IFC NOT GENERATINGCFM}
  1987.     INLINE $303C, $232, $AAAA;
  1988.     {$ENDC}
  1989. { extract a copy of an atom and all of it's children, caller disposes}
  1990. FUNCTION QTCopyAtom(container: QTAtomContainer; atom: QTAtom; VAR targetContainer: QTAtomContainer): OSErr;
  1991.     {$IFC NOT GENERATINGCFM}
  1992.     INLINE $303C, $214, $AAAA;
  1993.     {$ENDC}
  1994. { obtaining direct reference to atom data}
  1995. FUNCTION QTLockContainer(container: QTAtomContainer): OSErr;
  1996.     {$IFC NOT GENERATINGCFM}
  1997.     INLINE $303C, $215, $AAAA;
  1998.     {$ENDC}
  1999. FUNCTION QTGetAtomDataPtr(container: QTAtomContainer; atom: QTAtom; VAR dataSize: LONGINT; VAR atomData: Ptr): OSErr;
  2000.     {$IFC NOT GENERATINGCFM}
  2001.     INLINE $303C, $216, $AAAA;
  2002.     {$ENDC}
  2003. FUNCTION QTUnlockContainer(container: QTAtomContainer): OSErr;
  2004.     {$IFC NOT GENERATINGCFM}
  2005.     INLINE $303C, $217, $AAAA;
  2006.     {$ENDC}
  2007. { building QTAtomContainer trees}
  2008. { creates and inserts new atom at specified index, existing atoms at or after index are moved toward end of list}
  2009. { used for Top-Down tree creation}
  2010. FUNCTION QTInsertChild(container: QTAtomContainer; parentAtom: QTAtom; type: QTAtomType; id: QTAtomID; index: INTEGER; dataSize: LONGINT; data: UNIV Ptr; VAR newAtom: QTAtom): OSErr;
  2011.     {$IFC NOT GENERATINGCFM}
  2012.     INLINE $303C, $218, $AAAA;
  2013.     {$ENDC}
  2014. { inserts children from childrenContainer as children of parentAtom}
  2015. FUNCTION QTInsertChildren(container: QTAtomContainer; parentAtom: QTAtom; childrenContainer: QTAtomContainer): OSErr;
  2016.     {$IFC NOT GENERATINGCFM}
  2017.     INLINE $303C, $219, $AAAA;
  2018.     {$ENDC}
  2019. { destruction}
  2020. FUNCTION QTRemoveAtom(container: QTAtomContainer; atom: QTAtom): OSErr;
  2021.     {$IFC NOT GENERATINGCFM}
  2022.     INLINE $303C, $21A, $AAAA;
  2023.     {$ENDC}
  2024. FUNCTION QTRemoveChildren(container: QTAtomContainer; atom: QTAtom): OSErr;
  2025.     {$IFC NOT GENERATINGCFM}
  2026.     INLINE $303C, $21B, $AAAA;
  2027.     {$ENDC}
  2028. { replacement must be same type as target}
  2029. FUNCTION QTReplaceAtom(targetContainer: QTAtomContainer; targetAtom: QTAtom; replacementContainer: QTAtomContainer; replacementAtom: QTAtom): OSErr;
  2030.     {$IFC NOT GENERATINGCFM}
  2031.     INLINE $303C, $21C, $AAAA;
  2032.     {$ENDC}
  2033. FUNCTION QTSwapAtoms(container: QTAtomContainer; atom1: QTAtom; atom2: QTAtom): OSErr;
  2034.     {$IFC NOT GENERATINGCFM}
  2035.     INLINE $303C, $1FF, $AAAA;
  2036.     {$ENDC}
  2037. FUNCTION QTSetAtomID(container: QTAtomContainer; atom: QTAtom; newID: QTAtomID): OSErr;
  2038.     {$IFC NOT GENERATINGCFM}
  2039.     INLINE $303C, $231, $AAAA;
  2040.     {$ENDC}
  2041. FUNCTION SetMediaPropertyAtom(theMedia: Media; propertyAtom: QTAtomContainer): OSErr;
  2042.     {$IFC NOT GENERATINGCFM}
  2043.     INLINE $303C, $22E, $AAAA;
  2044.     {$ENDC}
  2045. FUNCTION GetMediaPropertyAtom(theMedia: Media; VAR propertyAtom: QTAtomContainer): OSErr;
  2046.     {$IFC NOT GENERATINGCFM}
  2047.     INLINE $303C, $22F, $AAAA;
  2048.     {$ENDC}
  2049.  
  2050. CONST
  2051.     invalidSpriteWorldPropertyErr = -2064;
  2052.     invalidSpritePropertyErr    = -2065;
  2053.     gWorldsNotSameDepthAndSizeErr = -2066;
  2054.     invalidSpriteIndexErr        = -2067;
  2055.     invalidImageIndexErr        = -2068;
  2056.  
  2057.     cannotFindAtomErr            = -2101;
  2058.     notLeafAtomErr                = -2102;
  2059.     atomsNotOfSameTypeErr        = -2103;
  2060.     atomIndexInvalidErr            = -2104;
  2061.     duplicateAtomTypeAndIDErr    = -2105;
  2062.     invalidAtomErr                = -2106;
  2063.     invalidAtomContainerErr        = -2107;
  2064.     invalidAtomTypeErr            = -2108;
  2065.  
  2066.     MovieControllerComponentType = 'play';
  2067.  
  2068.     
  2069. TYPE
  2070.     MovieController = ComponentInstance;
  2071.  
  2072.  
  2073. CONST
  2074.     mcActionIdle                = 1;                            { no param}
  2075.     mcActionDraw                = 2;                            { param is WindowPtr}
  2076.     mcActionActivate            = 3;                            { no param}
  2077.     mcActionDeactivate            = 4;                            { no param}
  2078.     mcActionMouseDown            = 5;                            { param is pointer to EventRecord}
  2079.     mcActionKey                    = 6;                            { param is pointer to EventRecord}
  2080.     mcActionPlay                = 8;                            { param is Fixed, play rate}
  2081.     mcActionGoToTime            = 12;                            { param is TimeRecord}
  2082.     mcActionSetVolume            = 14;                            { param is a short}
  2083.     mcActionGetVolume            = 15;                            { param is pointer to a short}
  2084.     mcActionStep                = 18;                            { param is number of steps (short)}
  2085.     mcActionSetLooping            = 21;                            { param is Boolean}
  2086.     mcActionGetLooping            = 22;                            { param is pointer to a Boolean}
  2087.     mcActionSetLoopIsPalindrome    = 23;                            { param is Boolean}
  2088.     mcActionGetLoopIsPalindrome    = 24;                            { param is pointer to a Boolean}
  2089.     mcActionSetGrowBoxBounds    = 25;                            { param is a Rect}
  2090.     mcActionControllerSizeChanged = 26;                            { no param}
  2091.     mcActionSetSelectionBegin    = 29;                            { param is TimeRecord}
  2092.     mcActionSetSelectionDuration = 30;                            { param is TimeRecord, action only taken on set-duration}
  2093.     mcActionSetKeysEnabled        = 32;                            { param is Boolean}
  2094.     mcActionGetKeysEnabled        = 33;                            { param is pointer to Boolean}
  2095.     mcActionSetPlaySelection    = 34;                            { param is Boolean}
  2096.     mcActionGetPlaySelection    = 35;                            { param is pointer to Boolean}
  2097.     mcActionSetUseBadge            = 36;                            { param is Boolean}
  2098.     mcActionGetUseBadge            = 37;                            { param is pointer to Boolean}
  2099.     mcActionSetFlags            = 38;                            { param is long of flags}
  2100.     mcActionGetFlags            = 39;                            { param is pointer to a long of flags}
  2101.     mcActionSetPlayEveryFrame    = 40;                            { param is Boolean}
  2102.     mcActionGetPlayEveryFrame    = 41;                            { param is pointer to Boolean}
  2103.     mcActionGetPlayRate            = 42;                            { param is pointer to Fixed}
  2104.     mcActionShowBalloon            = 43;                            { param is a pointer to a boolean. set to false to stop balloon}
  2105.     mcActionBadgeClick            = 44;                            { param is pointer to Boolean. set to false to ignore click}
  2106.     mcActionMovieClick            = 45;                            { param is pointer to event record. change “what” to nullEvt to kill click}
  2107.     mcActionSuspend                = 46;                            { no param}
  2108.     mcActionResume                = 47;                            { no param}
  2109.     mcActionSetControllerKeysEnabled = 48;                        { param is Boolean}
  2110.     mcActionGetTimeSliderRect    = 49;                            { param is pointer to rect}
  2111.     mcActionMovieEdited            = 50;                            { no param}
  2112.     mcActionGetDragEnabled        = 51;                            { param is pointer to Boolean}
  2113.     mcActionSetDragEnabled        = 52;                            { param is Boolean}
  2114.     mcActionGetSelectionBegin    = 53;                            { param is TimeRecord}
  2115.     mcActionGetSelectionDuration = 54;                            { param is TimeRecord}
  2116.     mcActionPrerollAndPlay        = 55;                            { param is Fixed, play rate}
  2117.     mcActionGetCursorSettingEnabled = 56;                        { param is pointer to Boolean}
  2118.     mcActionSetCursorSettingEnabled = 57;                        { param is Boolean}
  2119.  
  2120.     
  2121. TYPE
  2122.     mcAction = INTEGER;
  2123.  
  2124.  
  2125. CONST
  2126.     mcFlagSuppressMovieFrame    = 1 * (2**(0));
  2127.     mcFlagSuppressStepButtons    = 1 * (2**(1));
  2128.     mcFlagSuppressSpeakerButton    = 1 * (2**(2));
  2129.     mcFlagsUseWindowPalette        = 1 * (2**(3));
  2130.     mcFlagsDontInvalidate        = 1 * (2**(4));
  2131.  
  2132.     mcPositionDontInvalidate    = 1 * (2**(5));
  2133.  
  2134.     
  2135. TYPE
  2136.     mcFlags = LONGINT;
  2137.  
  2138.     MCActionFilterProcPtr = ProcPtr;  { FUNCTION MCActionFilter(mc: MovieController; VAR action: INTEGER; params: UNIV Ptr): BOOLEAN; }
  2139.     MCActionFilterWithRefConProcPtr = ProcPtr;  { FUNCTION MCActionFilterWithRefCon(mc: MovieController; action: INTEGER; params: UNIV Ptr; refCon: LONGINT): BOOLEAN; }
  2140.     MCActionFilterUPP = UniversalProcPtr;
  2141.     MCActionFilterWithRefConUPP = UniversalProcPtr;
  2142.  
  2143.  
  2144. CONST
  2145.     mcInfoUndoAvailable            = 1 * (2**(0));
  2146.     mcInfoCutAvailable            = 1 * (2**(1));
  2147.     mcInfoCopyAvailable            = 1 * (2**(2));
  2148.     mcInfoPasteAvailable        = 1 * (2**(3));
  2149.     mcInfoClearAvailable        = 1 * (2**(4));
  2150.     mcInfoHasSound                = 1 * (2**(5));
  2151.     mcInfoIsPlaying                = 1 * (2**(6));
  2152.     mcInfoIsLooping                = 1 * (2**(7));
  2153.     mcInfoIsInPalindrome        = 1 * (2**(8));
  2154.     mcInfoEditingEnabled        = 1 * (2**(9));
  2155.     mcInfoMovieIsInteractive    = 1 * (2**(10));
  2156.  
  2157. { menu item codes}
  2158.     mcMenuUndo                    = 1;
  2159.     mcMenuCut                    = 3;
  2160.     mcMenuCopy                    = 4;
  2161.     mcMenuPaste                    = 5;
  2162.     mcMenuClear                    = 6;
  2163.  
  2164. { target management }
  2165.  
  2166. FUNCTION MCSetMovie(mc: MovieController; theMovie: Movie; movieWindow: WindowPtr; where: Point): ComponentResult;
  2167.     {$IFC NOT GENERATINGCFM}
  2168.     INLINE $2F3C, $C, $2, $7000, $A82A;
  2169.     {$ENDC}
  2170. FUNCTION MCGetIndMovie(mc: MovieController; index: INTEGER): Movie;
  2171.     {$IFC NOT GENERATINGCFM}
  2172.     INLINE $2F3C, $2, $5, $7000, $A82A;
  2173.     {$ENDC}
  2174. FUNCTION MCGetMovieExtended(mc: MovieController; index: INTEGER): Movie;
  2175.     {$IFC NOT GENERATINGCFM}
  2176.     INLINE $2F3C, $2, $5, $7000, $A82A;
  2177.     {$ENDC}
  2178. FUNCTION MCRemoveMovie(mc: MovieController): ComponentResult;
  2179.     {$IFC NOT GENERATINGCFM}
  2180.     INLINE $2F3C, 0, $6, $7000, $A82A;
  2181.     {$ENDC}
  2182. { event handling etc. }
  2183. FUNCTION MCIsPlayerEvent(mc: MovieController; {CONST}VAR e: EventRecord): ComponentResult;
  2184.     {$IFC NOT GENERATINGCFM}
  2185.     INLINE $2F3C, $4, $7, $7000, $A82A;
  2186.     {$ENDC}
  2187. { obsolete. use MCSetActionFilterWithRefCon instead. }
  2188. FUNCTION MCSetActionFilter(mc: MovieController; blob: MCActionFilterUPP): ComponentResult;
  2189.     {$IFC NOT GENERATINGCFM}
  2190.     INLINE $2F3C, $4, $8, $7000, $A82A;
  2191.     {$ENDC}
  2192. {
  2193.     proc is of the form:
  2194.         Boolean userPlayerFilter(MovieController mc, short *action, void *params) =
  2195.     proc returns TRUE if it handles the action, FALSE if not
  2196.     action is passed as a VAR so that it could be changed by filter (ick)
  2197.     this is consistent with the current dialog manager stuff
  2198.     params is any potential parameters that go with the action <triple ick> 
  2199.         such as set playback rate to xxx.
  2200. }
  2201. FUNCTION MCDoAction(mc: MovieController; action: INTEGER; params: UNIV Ptr): ComponentResult;
  2202.     {$IFC NOT GENERATINGCFM}
  2203.     INLINE $2F3C, $6, $9, $7000, $A82A;
  2204.     {$ENDC}
  2205. { state type things }
  2206. FUNCTION MCSetControllerAttached(mc: MovieController; attach: BOOLEAN): ComponentResult;
  2207.     {$IFC NOT GENERATINGCFM}
  2208.     INLINE $2F3C, $2, $A, $7000, $A82A;
  2209.     {$ENDC}
  2210. FUNCTION MCIsControllerAttached(mc: MovieController): ComponentResult;
  2211.     {$IFC NOT GENERATINGCFM}
  2212.     INLINE $2F3C, 0, $B, $7000, $A82A;
  2213.     {$ENDC}
  2214. FUNCTION MCSetControllerPort(mc: MovieController; gp: CGrafPtr): ComponentResult;
  2215.     {$IFC NOT GENERATINGCFM}
  2216.     INLINE $2F3C, $4, $C, $7000, $A82A;
  2217.     {$ENDC}
  2218. FUNCTION MCGetControllerPort(mc: MovieController): CGrafPtr;
  2219.     {$IFC NOT GENERATINGCFM}
  2220.     INLINE $2F3C, 0, $D, $7000, $A82A;
  2221.     {$ENDC}
  2222. FUNCTION MCSetVisible(mc: MovieController; visible: BOOLEAN): ComponentResult;
  2223.     {$IFC NOT GENERATINGCFM}
  2224.     INLINE $2F3C, $2, $E, $7000, $A82A;
  2225.     {$ENDC}
  2226. FUNCTION MCGetVisible(mc: MovieController): ComponentResult;
  2227.     {$IFC NOT GENERATINGCFM}
  2228.     INLINE $2F3C, 0, $F, $7000, $A82A;
  2229.     {$ENDC}
  2230. FUNCTION MCGetControllerBoundsRect(mc: MovieController; VAR bounds: Rect): ComponentResult;
  2231.     {$IFC NOT GENERATINGCFM}
  2232.     INLINE $2F3C, $4, $10, $7000, $A82A;
  2233.     {$ENDC}
  2234. FUNCTION MCSetControllerBoundsRect(mc: MovieController; {CONST}VAR bounds: Rect): ComponentResult;
  2235.     {$IFC NOT GENERATINGCFM}
  2236.     INLINE $2F3C, $4, $11, $7000, $A82A;
  2237.     {$ENDC}
  2238. FUNCTION MCGetControllerBoundsRgn(mc: MovieController): RgnHandle;
  2239.     {$IFC NOT GENERATINGCFM}
  2240.     INLINE $2F3C, 0, $12, $7000, $A82A;
  2241.     {$ENDC}
  2242. FUNCTION MCGetWindowRgn(mc: MovieController; w: WindowPtr): RgnHandle;
  2243.     {$IFC NOT GENERATINGCFM}
  2244.     INLINE $2F3C, $4, $13, $7000, $A82A;
  2245.     {$ENDC}
  2246. { other stuff }
  2247. FUNCTION MCMovieChanged(mc: MovieController; m: Movie): ComponentResult;
  2248.     {$IFC NOT GENERATINGCFM}
  2249.     INLINE $2F3C, $4, $14, $7000, $A82A;
  2250.     {$ENDC}
  2251. {
  2252.     called when the app has changed thing about the movie (like bounding rect) or rate. So that we
  2253.         can update our graphical (and internal) state accordingly.
  2254. }
  2255. FUNCTION MCSetDuration(mc: MovieController; duration: TimeValue): ComponentResult;
  2256.     {$IFC NOT GENERATINGCFM}
  2257.     INLINE $2F3C, $4, $15, $7000, $A82A;
  2258.     {$ENDC}
  2259. {
  2260.     duration to use for time slider -- will be reset next time MCMovieChanged is called
  2261.         or MCSetMovie is called
  2262. }
  2263. FUNCTION MCGetCurrentTime(mc: MovieController; VAR scale: TimeScale): TimeValue;
  2264.     {$IFC NOT GENERATINGCFM}
  2265.     INLINE $2F3C, $4, $16, $7000, $A82A;
  2266.     {$ENDC}
  2267. {
  2268.     returns the time value and the time scale it is on. if there are no movies, the
  2269.         time scale is passed back as 0. scale is an optional parameter
  2270.  
  2271. }
  2272. FUNCTION MCNewAttachedController(mc: MovieController; theMovie: Movie; w: WindowPtr; where: Point): ComponentResult;
  2273.     {$IFC NOT GENERATINGCFM}
  2274.     INLINE $2F3C, $C, $17, $7000, $A82A;
  2275.     {$ENDC}
  2276. {
  2277.     makes m the only movie attached to the controller. makes the controller visible.
  2278.     the window and where parameters are passed a long to MCSetMovie and behave as
  2279.     described there
  2280. }
  2281. FUNCTION MCDraw(mc: MovieController; w: WindowPtr): ComponentResult;
  2282.     {$IFC NOT GENERATINGCFM}
  2283.     INLINE $2F3C, $4, $18, $7000, $A82A;
  2284.     {$ENDC}
  2285. FUNCTION MCActivate(mc: MovieController; w: WindowPtr; activate: BOOLEAN): ComponentResult;
  2286.     {$IFC NOT GENERATINGCFM}
  2287.     INLINE $2F3C, $6, $19, $7000, $A82A;
  2288.     {$ENDC}
  2289. FUNCTION MCIdle(mc: MovieController): ComponentResult;
  2290.     {$IFC NOT GENERATINGCFM}
  2291.     INLINE $2F3C, 0, $1A, $7000, $A82A;
  2292.     {$ENDC}
  2293. FUNCTION MCKey(mc: MovieController; key: ByteParameter; modifiers: LONGINT): ComponentResult;
  2294.     {$IFC NOT GENERATINGCFM}
  2295.     INLINE $2F3C, $6, $1B, $7000, $A82A;
  2296.     {$ENDC}
  2297. FUNCTION MCClick(mc: MovieController; w: WindowPtr; where: Point; when: LONGINT; modifiers: LONGINT): ComponentResult;
  2298.     {$IFC NOT GENERATINGCFM}
  2299.     INLINE $2F3C, $10, $1C, $7000, $A82A;
  2300.     {$ENDC}
  2301. {
  2302.     calls for editing
  2303. }
  2304. FUNCTION MCEnableEditing(mc: MovieController; enabled: BOOLEAN): ComponentResult;
  2305.     {$IFC NOT GENERATINGCFM}
  2306.     INLINE $2F3C, $2, $1D, $7000, $A82A;
  2307.     {$ENDC}
  2308. FUNCTION MCIsEditingEnabled(mc: MovieController): LONGINT;
  2309.     {$IFC NOT GENERATINGCFM}
  2310.     INLINE $2F3C, 0, $1E, $7000, $A82A;
  2311.     {$ENDC}
  2312. FUNCTION MCCopy(mc: MovieController): Movie;
  2313.     {$IFC NOT GENERATINGCFM}
  2314.     INLINE $2F3C, 0, $1F, $7000, $A82A;
  2315.     {$ENDC}
  2316. FUNCTION MCCut(mc: MovieController): Movie;
  2317.     {$IFC NOT GENERATINGCFM}
  2318.     INLINE $2F3C, 0, $20, $7000, $A82A;
  2319.     {$ENDC}
  2320. FUNCTION MCPaste(mc: MovieController; srcMovie: Movie): ComponentResult;
  2321.     {$IFC NOT GENERATINGCFM}
  2322.     INLINE $2F3C, $4, $21, $7000, $A82A;
  2323.     {$ENDC}
  2324. FUNCTION MCClear(mc: MovieController): ComponentResult;
  2325.     {$IFC NOT GENERATINGCFM}
  2326.     INLINE $2F3C, 0, $22, $7000, $A82A;
  2327.     {$ENDC}
  2328. FUNCTION MCUndo(mc: MovieController): ComponentResult;
  2329.     {$IFC NOT GENERATINGCFM}
  2330.     INLINE $2F3C, 0, $23, $7000, $A82A;
  2331.     {$ENDC}
  2332. {
  2333.  *    somewhat special stuff
  2334.  }
  2335. FUNCTION MCPositionController(mc: MovieController; {CONST}VAR movieRect: Rect; {CONST}VAR controllerRect: Rect; someFlags: LONGINT): ComponentResult;
  2336.     {$IFC NOT GENERATINGCFM}
  2337.     INLINE $2F3C, $C, $24, $7000, $A82A;
  2338.     {$ENDC}
  2339. FUNCTION MCGetControllerInfo(mc: MovieController; VAR someFlags: LONGINT): ComponentResult;
  2340.     {$IFC NOT GENERATINGCFM}
  2341.     INLINE $2F3C, $4, $25, $7000, $A82A;
  2342.     {$ENDC}
  2343. FUNCTION MCSetClip(mc: MovieController; theClip: RgnHandle; movieClip: RgnHandle): ComponentResult;
  2344.     {$IFC NOT GENERATINGCFM}
  2345.     INLINE $2F3C, $8, $28, $7000, $A82A;
  2346.     {$ENDC}
  2347. FUNCTION MCGetClip(mc: MovieController; VAR theClip: RgnHandle; VAR movieClip: RgnHandle): ComponentResult;
  2348.     {$IFC NOT GENERATINGCFM}
  2349.     INLINE $2F3C, $8, $29, $7000, $A82A;
  2350.     {$ENDC}
  2351. FUNCTION MCDrawBadge(mc: MovieController; movieRgn: RgnHandle; VAR badgeRgn: RgnHandle): ComponentResult;
  2352.     {$IFC NOT GENERATINGCFM}
  2353.     INLINE $2F3C, $8, $2A, $7000, $A82A;
  2354.     {$ENDC}
  2355. FUNCTION MCSetUpEditMenu(mc: MovieController; modifiers: LONGINT; mh: MenuHandle): ComponentResult;
  2356.     {$IFC NOT GENERATINGCFM}
  2357.     INLINE $2F3C, $8, $2B, $7000, $A82A;
  2358.     {$ENDC}
  2359. FUNCTION MCGetMenuString(mc: MovieController; modifiers: LONGINT; item: INTEGER; VAR aString: Str255): ComponentResult;
  2360.     {$IFC NOT GENERATINGCFM}
  2361.     INLINE $2F3C, $A, $2C, $7000, $A82A;
  2362.     {$ENDC}
  2363. FUNCTION MCSetActionFilterWithRefCon(mc: MovieController; blob: MCActionFilterWithRefConUPP; refCon: LONGINT): ComponentResult;
  2364.     {$IFC NOT GENERATINGCFM}
  2365.     INLINE $2F3C, $8, $2D, $7000, $A82A;
  2366.     {$ENDC}
  2367. FUNCTION MCPtInController(mc: MovieController; thePt: Point; VAR inController: BOOLEAN): ComponentResult;
  2368.     {$IFC NOT GENERATINGCFM}
  2369.     INLINE $2F3C, $8, $2E, $7000, $A82A;
  2370.     {$ENDC}
  2371.  
  2372. CONST
  2373.     kMCSetMovieSelect            = $2;
  2374.     kMCGetIndMovieSelect        = $5;
  2375.     kMCGetMovieExtendedSelect    = $5;
  2376.     kMCRemoveMovieSelect        = $6;
  2377.     kMCIsPlayerEventSelect        = $7;
  2378.     kMCSetActionFilterSelect    = $8;
  2379.     kMCDoActionSelect            = $9;
  2380.     kMCSetControllerAttachedSelect = $A;
  2381.     kMCIsControllerAttachedSelect = $B;
  2382.     kMCSetControllerPortSelect    = $C;
  2383.     kMCGetControllerPortSelect    = $D;
  2384.     kMCSetVisibleSelect            = $E;
  2385.     kMCGetVisibleSelect            = $F;
  2386.     kMCGetControllerBoundsRectSelect = $10;
  2387.     kMCSetControllerBoundsRectSelect = $11;
  2388.     kMCGetControllerBoundsRgnSelect = $12;
  2389.     kMCGetWindowRgnSelect        = $13;
  2390.     kMCMovieChangedSelect        = $14;
  2391.     kMCSetDurationSelect        = $15;
  2392.     kMCGetCurrentTimeSelect        = $16;
  2393.     kMCNewAttachedControllerSelect = $17;
  2394.     kMCDrawSelect                = $18;
  2395.     kMCActivateSelect            = $19;
  2396.     kMCIdleSelect                = $1A;
  2397.     kMCKeySelect                = $1B;
  2398.     kMCClickSelect                = $1C;
  2399.     kMCEnableEditingSelect        = $1D;
  2400.     kMCIsEditingEnabledSelect    = $1E;
  2401.     kMCCopySelect                = $1F;
  2402.     kMCCutSelect                = $20;
  2403.     kMCPasteSelect                = $21;
  2404.     kMCClearSelect                = $22;
  2405.     kMCUndoSelect                = $23;
  2406.     kMCPositionControllerSelect    = $24;
  2407.     kMCGetControllerInfoSelect    = $25;
  2408.     kMCSetClipSelect            = $28;
  2409.     kMCGetClipSelect            = $29;
  2410.     kMCDrawBadgeSelect            = $2A;
  2411.     kMCSetUpEditMenuSelect        = $2B;
  2412.     kMCGetMenuStringSelect        = $2C;
  2413.     kMCSetActionFilterWithRefConSelect = $2D;
  2414.     kMCPtInControllerSelect        = $2E;
  2415.  
  2416. {***************************************
  2417. *                                        *
  2418. *          T  I  M  E  B  A  S  E            *
  2419. *                                        *
  2420. ***************************************}
  2421.  
  2422. FUNCTION NewTimeBase: TimeBase;
  2423.     {$IFC NOT GENERATINGCFM}
  2424.     INLINE $303C, $A5, $AAAA;
  2425.     {$ENDC}
  2426. PROCEDURE DisposeTimeBase(tb: TimeBase);
  2427.     {$IFC NOT GENERATINGCFM}
  2428.     INLINE $303C, $B6, $AAAA;
  2429.     {$ENDC}
  2430. FUNCTION GetTimeBaseTime(tb: TimeBase; s: TimeScale; VAR tr: TimeRecord): TimeValue;
  2431.     {$IFC NOT GENERATINGCFM}
  2432.     INLINE $303C, $A6, $AAAA;
  2433.     {$ENDC}
  2434. PROCEDURE SetTimeBaseTime(tb: TimeBase; {CONST}VAR tr: TimeRecord);
  2435.     {$IFC NOT GENERATINGCFM}
  2436.     INLINE $303C, $A7, $AAAA;
  2437.     {$ENDC}
  2438. PROCEDURE SetTimeBaseValue(tb: TimeBase; t: TimeValue; s: TimeScale);
  2439.     {$IFC NOT GENERATINGCFM}
  2440.     INLINE $303C, $A8, $AAAA;
  2441.     {$ENDC}
  2442. FUNCTION GetTimeBaseRate(tb: TimeBase): Fixed;
  2443.     {$IFC NOT GENERATINGCFM}
  2444.     INLINE $303C, $A9, $AAAA;
  2445.     {$ENDC}
  2446. PROCEDURE SetTimeBaseRate(tb: TimeBase; r: Fixed);
  2447.     {$IFC NOT GENERATINGCFM}
  2448.     INLINE $303C, $AA, $AAAA;
  2449.     {$ENDC}
  2450. FUNCTION GetTimeBaseStartTime(tb: TimeBase; s: TimeScale; VAR tr: TimeRecord): TimeValue;
  2451.     {$IFC NOT GENERATINGCFM}
  2452.     INLINE $303C, $AB, $AAAA;
  2453.     {$ENDC}
  2454. PROCEDURE SetTimeBaseStartTime(tb: TimeBase; {CONST}VAR tr: TimeRecord);
  2455.     {$IFC NOT GENERATINGCFM}
  2456.     INLINE $303C, $AC, $AAAA;
  2457.     {$ENDC}
  2458. FUNCTION GetTimeBaseStopTime(tb: TimeBase; s: TimeScale; VAR tr: TimeRecord): TimeValue;
  2459.     {$IFC NOT GENERATINGCFM}
  2460.     INLINE $303C, $AD, $AAAA;
  2461.     {$ENDC}
  2462. PROCEDURE SetTimeBaseStopTime(tb: TimeBase; {CONST}VAR tr: TimeRecord);
  2463.     {$IFC NOT GENERATINGCFM}
  2464.     INLINE $303C, $AE, $AAAA;
  2465.     {$ENDC}
  2466. FUNCTION GetTimeBaseFlags(tb: TimeBase): LONGINT;
  2467.     {$IFC NOT GENERATINGCFM}
  2468.     INLINE $303C, $B1, $AAAA;
  2469.     {$ENDC}
  2470. PROCEDURE SetTimeBaseFlags(tb: TimeBase; timeBaseFlags: LONGINT);
  2471.     {$IFC NOT GENERATINGCFM}
  2472.     INLINE $303C, $B2, $AAAA;
  2473.     {$ENDC}
  2474. PROCEDURE SetTimeBaseMasterTimeBase(slave: TimeBase; master: TimeBase; {CONST}VAR slaveZero: TimeRecord);
  2475.     {$IFC NOT GENERATINGCFM}
  2476.     INLINE $303C, $B4, $AAAA;
  2477.     {$ENDC}
  2478. FUNCTION GetTimeBaseMasterTimeBase(tb: TimeBase): TimeBase;
  2479.     {$IFC NOT GENERATINGCFM}
  2480.     INLINE $303C, $AF, $AAAA;
  2481.     {$ENDC}
  2482. PROCEDURE SetTimeBaseMasterClock(slave: TimeBase; clockMeister: Component; {CONST}VAR slaveZero: TimeRecord);
  2483.     {$IFC NOT GENERATINGCFM}
  2484.     INLINE $303C, $B3, $AAAA;
  2485.     {$ENDC}
  2486. FUNCTION GetTimeBaseMasterClock(tb: TimeBase): ComponentInstance;
  2487.     {$IFC NOT GENERATINGCFM}
  2488.     INLINE $303C, $B0, $AAAA;
  2489.     {$ENDC}
  2490. PROCEDURE ConvertTime(VAR inout: TimeRecord; newBase: TimeBase);
  2491.     {$IFC NOT GENERATINGCFM}
  2492.     INLINE $303C, $B5, $AAAA;
  2493.     {$ENDC}
  2494. PROCEDURE ConvertTimeScale(VAR inout: TimeRecord; newScale: TimeScale);
  2495.     {$IFC NOT GENERATINGCFM}
  2496.     INLINE $303C, $B7, $AAAA;
  2497.     {$ENDC}
  2498. PROCEDURE AddTime(VAR dst: TimeRecord; {CONST}VAR src: TimeRecord);
  2499.     {$IFC NOT GENERATINGCFM}
  2500.     INLINE $303C, $10C, $AAAA;
  2501.     {$ENDC}
  2502. PROCEDURE SubtractTime(VAR dst: TimeRecord; {CONST}VAR src: TimeRecord);
  2503.     {$IFC NOT GENERATINGCFM}
  2504.     INLINE $303C, $10D, $AAAA;
  2505.     {$ENDC}
  2506. FUNCTION GetTimeBaseStatus(tb: TimeBase; VAR unpinnedTime: TimeRecord): LONGINT;
  2507.     {$IFC NOT GENERATINGCFM}
  2508.     INLINE $303C, $10B, $AAAA;
  2509.     {$ENDC}
  2510. PROCEDURE SetTimeBaseZero(tb: TimeBase; VAR zero: TimeRecord);
  2511.     {$IFC NOT GENERATINGCFM}
  2512.     INLINE $303C, $128, $AAAA;
  2513.     {$ENDC}
  2514. FUNCTION GetTimeBaseEffectiveRate(tb: TimeBase): Fixed;
  2515.     {$IFC NOT GENERATINGCFM}
  2516.     INLINE $303C, $124, $AAAA;
  2517.     {$ENDC}
  2518. {***************************************
  2519. *                                        *
  2520. *          C  A  L  L  B  A  C  K             *
  2521. *                                        *
  2522. ***************************************}
  2523. FUNCTION NewCallBack(tb: TimeBase; cbType: INTEGER): QTCallBack;
  2524.     {$IFC NOT GENERATINGCFM}
  2525.     INLINE $303C, $EB, $AAAA;
  2526.     {$ENDC}
  2527. PROCEDURE DisposeCallBack(cb: QTCallBack);
  2528.     {$IFC NOT GENERATINGCFM}
  2529.     INLINE $303C, $EC, $AAAA;
  2530.     {$ENDC}
  2531. FUNCTION GetCallBackType(cb: QTCallBack): INTEGER;
  2532.     {$IFC NOT GENERATINGCFM}
  2533.     INLINE $303C, $ED, $AAAA;
  2534.     {$ENDC}
  2535. FUNCTION GetCallBackTimeBase(cb: QTCallBack): TimeBase;
  2536.     {$IFC NOT GENERATINGCFM}
  2537.     INLINE $303C, $EE, $AAAA;
  2538.     {$ENDC}
  2539. FUNCTION CallMeWhen(cb: QTCallBack; callBackProc: QTCallBackUPP; refCon: LONGINT; param1: LONGINT; param2: LONGINT; param3: LONGINT): OSErr;
  2540.     {$IFC NOT GENERATINGCFM}
  2541.     INLINE $303C, $B8, $AAAA;
  2542.     {$ENDC}
  2543. PROCEDURE CancelCallBack(cb: QTCallBack);
  2544.     {$IFC NOT GENERATINGCFM}
  2545.     INLINE $303C, $B9, $AAAA;
  2546.     {$ENDC}
  2547. {***************************************
  2548. *                                        *
  2549. *          C L O C K   C A L L B A C K      *
  2550. *                S U P P O R T              *
  2551. *                                        *
  2552. ***************************************}
  2553. FUNCTION AddCallBackToTimeBase(cb: QTCallBack): OSErr;
  2554.     {$IFC NOT GENERATINGCFM}
  2555.     INLINE $303C, $129, $AAAA;
  2556.     {$ENDC}
  2557. FUNCTION RemoveCallBackFromTimeBase(cb: QTCallBack): OSErr;
  2558.     {$IFC NOT GENERATINGCFM}
  2559.     INLINE $303C, $12A, $AAAA;
  2560.     {$ENDC}
  2561. FUNCTION GetFirstCallBack(tb: TimeBase): QTCallBack;
  2562.     {$IFC NOT GENERATINGCFM}
  2563.     INLINE $303C, $12B, $AAAA;
  2564.     {$ENDC}
  2565. FUNCTION GetNextCallBack(cb: QTCallBack): QTCallBack;
  2566.     {$IFC NOT GENERATINGCFM}
  2567.     INLINE $303C, $12C, $AAAA;
  2568.     {$ENDC}
  2569. PROCEDURE ExecuteCallBack(cb: QTCallBack);
  2570.     {$IFC NOT GENERATINGCFM}
  2571.     INLINE $303C, $12D, $AAAA;
  2572.     {$ENDC}
  2573. {***************************************
  2574. *                                        *
  2575. *          S Y N C    T A S K S              *
  2576. *                S U P P O R T              *
  2577. *                                        *
  2578. ***************************************}
  2579. FUNCTION QueueSyncTask(task: QTSyncTaskPtr): OSErr;
  2580.     {$IFC NOT GENERATINGCFM}
  2581.     INLINE $303C, $203, $AAAA;
  2582.     {$ENDC}
  2583. FUNCTION DequeueSyncTask(qElem: QTSyncTaskPtr): OSErr;
  2584.     {$IFC NOT GENERATINGCFM}
  2585.     INLINE $303C, $204, $AAAA;
  2586.     {$ENDC}
  2587. { UPP call backs }
  2588.  
  2589. CONST
  2590.     uppMovieRgnCoverProcInfo = $00000FE0; { FUNCTION (4 byte param, 4 byte param, 4 byte param): 2 byte result; }
  2591.     uppMovieProgressProcInfo = $0000FAE0; { FUNCTION (4 byte param, 2 byte param, 2 byte param, 4 byte param, 4 byte param): 2 byte result; }
  2592.     uppMovieDrawingCompleteProcInfo = $000003E0; { FUNCTION (4 byte param, 4 byte param): 2 byte result; }
  2593.     uppTrackTransferProcInfo = $000003E0; { FUNCTION (4 byte param, 4 byte param): 2 byte result; }
  2594.     uppGetMovieProcInfo = $00003FE0; { FUNCTION (4 byte param, 4 byte param, 4 byte param, 4 byte param): 2 byte result; }
  2595.     uppMoviePreviewCallOutProcInfo = $000000D0; { FUNCTION (4 byte param): 1 byte result; }
  2596.     uppMoviesErrorProcInfo = $00000380; { PROCEDURE (2 byte param, 4 byte param); }
  2597.     uppTextMediaProcInfo = $00003FE0; { FUNCTION (4 byte param, 4 byte param, 4 byte param, 4 byte param): 2 byte result; }
  2598.     uppQTCallBackProcInfo = $000003C0; { PROCEDURE (4 byte param, 4 byte param); }
  2599.     uppQTSyncTaskProcInfo = $000000C0; { PROCEDURE (4 byte param); }
  2600.     uppMCActionFilterProcInfo = $00000FD0; { FUNCTION (4 byte param, 4 byte param, 4 byte param): 1 byte result; }
  2601.     uppMCActionFilterWithRefConProcInfo = $00003ED0; { FUNCTION (4 byte param, 2 byte param, 4 byte param, 4 byte param): 1 byte result; }
  2602.  
  2603. FUNCTION NewMovieRgnCoverProc(userRoutine: MovieRgnCoverProcPtr): MovieRgnCoverUPP;
  2604.     {$IFC NOT GENERATINGCFM }
  2605.     INLINE $2E9F;
  2606.     {$ENDC}
  2607.  
  2608. FUNCTION NewMovieProgressProc(userRoutine: MovieProgressProcPtr): MovieProgressUPP;
  2609.     {$IFC NOT GENERATINGCFM }
  2610.     INLINE $2E9F;
  2611.     {$ENDC}
  2612.  
  2613. FUNCTION NewMovieDrawingCompleteProc(userRoutine: MovieDrawingCompleteProcPtr): MovieDrawingCompleteUPP;
  2614.     {$IFC NOT GENERATINGCFM }
  2615.     INLINE $2E9F;
  2616.     {$ENDC}
  2617.  
  2618. FUNCTION NewTrackTransferProc(userRoutine: TrackTransferProcPtr): TrackTransferUPP;
  2619.     {$IFC NOT GENERATINGCFM }
  2620.     INLINE $2E9F;
  2621.     {$ENDC}
  2622.  
  2623. FUNCTION NewGetMovieProc(userRoutine: GetMovieProcPtr): GetMovieUPP;
  2624.     {$IFC NOT GENERATINGCFM }
  2625.     INLINE $2E9F;
  2626.     {$ENDC}
  2627.  
  2628. FUNCTION NewMoviePreviewCallOutProc(userRoutine: MoviePreviewCallOutProcPtr): MoviePreviewCallOutUPP;
  2629.     {$IFC NOT GENERATINGCFM }
  2630.     INLINE $2E9F;
  2631.     {$ENDC}
  2632.  
  2633. FUNCTION NewMoviesErrorProc(userRoutine: MoviesErrorProcPtr): MoviesErrorUPP;
  2634.     {$IFC NOT GENERATINGCFM }
  2635.     INLINE $2E9F;
  2636.     {$ENDC}
  2637.  
  2638. FUNCTION NewTextMediaProc(userRoutine: TextMediaProcPtr): TextMediaUPP;
  2639.     {$IFC NOT GENERATINGCFM }
  2640.     INLINE $2E9F;
  2641.     {$ENDC}
  2642.  
  2643. FUNCTION NewQTCallBackProc(userRoutine: QTCallBackProcPtr): QTCallBackUPP;
  2644.     {$IFC NOT GENERATINGCFM }
  2645.     INLINE $2E9F;
  2646.     {$ENDC}
  2647.  
  2648. FUNCTION NewQTSyncTaskProc(userRoutine: QTSyncTaskProcPtr): QTSyncTaskUPP;
  2649.     {$IFC NOT GENERATINGCFM }
  2650.     INLINE $2E9F;
  2651.     {$ENDC}
  2652.  
  2653. FUNCTION NewMCActionFilterProc(userRoutine: MCActionFilterProcPtr): MCActionFilterUPP;
  2654.     {$IFC NOT GENERATINGCFM }
  2655.     INLINE $2E9F;
  2656.     {$ENDC}
  2657.  
  2658. FUNCTION NewMCActionFilterWithRefConProc(userRoutine: MCActionFilterWithRefConProcPtr): MCActionFilterWithRefConUPP;
  2659.     {$IFC NOT GENERATINGCFM }
  2660.     INLINE $2E9F;
  2661.     {$ENDC}
  2662.  
  2663. FUNCTION CallMovieRgnCoverProc(theMovie: Movie; changedRgn: RgnHandle; refcon: LONGINT; userRoutine: MovieRgnCoverUPP): OSErr;
  2664.     {$IFC NOT GENERATINGCFM}
  2665.     INLINE $205F, $4E90;
  2666.     {$ENDC}
  2667.  
  2668. FUNCTION CallMovieProgressProc(theMovie: Movie; message: INTEGER; whatOperation: INTEGER; percentDone: Fixed; refcon: LONGINT; userRoutine: MovieProgressUPP): OSErr;
  2669.     {$IFC NOT GENERATINGCFM}
  2670.     INLINE $205F, $4E90;
  2671.     {$ENDC}
  2672.  
  2673. FUNCTION CallMovieDrawingCompleteProc(theMovie: Movie; refCon: LONGINT; userRoutine: MovieDrawingCompleteUPP): OSErr;
  2674.     {$IFC NOT GENERATINGCFM}
  2675.     INLINE $205F, $4E90;
  2676.     {$ENDC}
  2677.  
  2678. FUNCTION CallTrackTransferProc(t: Track; refCon: LONGINT; userRoutine: TrackTransferUPP): OSErr;
  2679.     {$IFC NOT GENERATINGCFM}
  2680.     INLINE $205F, $4E90;
  2681.     {$ENDC}
  2682.  
  2683. FUNCTION CallGetMovieProc(offset: LONGINT; size: LONGINT; dataPtr: UNIV Ptr; refCon: UNIV Ptr; userRoutine: GetMovieUPP): OSErr;
  2684.     {$IFC NOT GENERATINGCFM}
  2685.     INLINE $205F, $4E90;
  2686.     {$ENDC}
  2687.  
  2688. FUNCTION CallMoviePreviewCallOutProc(refcon: LONGINT; userRoutine: MoviePreviewCallOutUPP): BOOLEAN;
  2689.     {$IFC NOT GENERATINGCFM}
  2690.     INLINE $205F, $4E90;
  2691.     {$ENDC}
  2692.  
  2693. PROCEDURE CallMoviesErrorProc(theErr: OSErr; refcon: LONGINT; userRoutine: MoviesErrorUPP);
  2694.     {$IFC NOT GENERATINGCFM}
  2695.     INLINE $205F, $4E90;
  2696.     {$ENDC}
  2697.  
  2698. FUNCTION CallTextMediaProc(theText: Handle; theMovie: Movie; VAR displayFlag: INTEGER; refcon: LONGINT; userRoutine: TextMediaUPP): OSErr;
  2699.     {$IFC NOT GENERATINGCFM}
  2700.     INLINE $205F, $4E90;
  2701.     {$ENDC}
  2702.  
  2703. PROCEDURE CallQTCallBackProc(cb: QTCallBack; refCon: LONGINT; userRoutine: QTCallBackUPP);
  2704.     {$IFC NOT GENERATINGCFM}
  2705.     INLINE $205F, $4E90;
  2706.     {$ENDC}
  2707.  
  2708. PROCEDURE CallQTSyncTaskProc(task: UNIV Ptr; userRoutine: QTSyncTaskUPP);
  2709.     {$IFC NOT GENERATINGCFM}
  2710.     INLINE $205F, $4E90;
  2711.     {$ENDC}
  2712.  
  2713. FUNCTION CallMCActionFilterProc(mc: MovieController; VAR action: INTEGER; params: UNIV Ptr; userRoutine: MCActionFilterUPP): BOOLEAN;
  2714.     {$IFC NOT GENERATINGCFM}
  2715.     INLINE $205F, $4E90;
  2716.     {$ENDC}
  2717.  
  2718. FUNCTION CallMCActionFilterWithRefConProc(mc: MovieController; action: INTEGER; params: UNIV Ptr; refCon: LONGINT; userRoutine: MCActionFilterWithRefConUPP): BOOLEAN;
  2719.     {$IFC NOT GENERATINGCFM}
  2720.     INLINE $205F, $4E90;
  2721.     {$ENDC}
  2722.  
  2723. {$ALIGN RESET}
  2724. {$POP}
  2725.  
  2726. {$SETC UsingIncludes := MoviesIncludes}
  2727.  
  2728. {$ENDC} {__MOVIES__}
  2729.  
  2730. {$IFC NOT UsingIncludes}
  2731.  END.
  2732. {$ENDC}
  2733.